Fullscreen MaxGUI windows

I dont know if anyone has posted about this before, but heres some simple code for getting MaxGUI in fullscreen mode on Windows. (needs MinGW to compile)

http://grable0.googlepages.com/ChangeDisplayMode.rar

a short example changes displaymode on ALT+ENTER

SuperStrict

Import "ChangeDisplayMode.bmx"

' fullscreen resolution
Const WIDTH:Int	= 320
Const HEIGHT:Int	= 240
Const BPP:Int		= 32
Const HZ:Int		= 75

Global frmMain:TGadget = CreateWindow( "Main", 128,128, WIDTH,HEIGHT, Null, WINDOW_FULLSCREEN | WINDOW_RESIZABLE)
Global text:TGadget = CreateLabel( "Press ALT + ENTER", 0,(HEIGHT/2)-10, WIDTH,20, frmMain, LABEL_CENTER)

SetHotKeyEvent( KEY_RETURN, MODIFIER_OPTION)
SetHotKeyEvent( KEY_ESCAPE, 0)

While WaitEvent()
	Select CurrentEvent.ID
		Case EVENT_HOTKEYHIT
			Select CurrentEvent.Data			
				Case KEY_RETURN
					If CurrentEvent.Mods = MODIFIER_OPTION Then
						ChangeWindowMode( frmMain, WIDTH,HEIGHT,BPP,HZ)
					EndIf
				Case KEY_ESCAPE
					Exit					
			EndSelect
		Case EVENT_WINDOWCLOSE 
			Exit
	EndSelect
Wend
End