Extern "win32"
	Function RedrawWindow( hwnd:Int, a:Int, b:Int, c:Int )
End Extern

Local win:TGadget = CreateWindow( "", 100, 100, 400, 300, Null, WINDOW_TITLEBAR | WINDOW_CLIENTCOORDS | WINDOW_HIDDEN )

SetClassLongA( QueryGadget( win, QUERY_HWND ), GCL_HBRBACKGROUND, CreateSolidBrush( $ff0000 ) )

ShowGadget( win )

While True
	If WaitEvent( ) = EVENT_WINDOWCLOSE End
Wend