WinAPI Window

Procedure WindowCallback(hWnd, Msg, wParam, lParam)

  Select Msg
    Case #WM_CLOSE
      DestroyWindow_(hWnd)
    Case #WM_DESTROY
      PostQuitMessage_(0) : Result  = 0
    Default
      Result  = DefWindowProc_(hWnd, Msg, wParam, lParam)
  EndSelect

  ProcedureReturn Result
EndProcedure

InitCommonControls_()
DefaultFont = GetStockObject_(#DEFAULT_GUI_FONT)

WindowClass.s    = "PureBasic_Win"
wc.WNDCLASSEX
wc\cbsize        = SizeOf(WNDCLASSEX)
wc\lpfnWndProc   = @WindowCallback()
wc\hCursor       = LoadCursor_(0, #IDC_ARROW)
wc\hbrBackground = #COLOR_WINDOW
wc\lpszClassName = @WindowClass
RegisterClassEx_(@wc)

hWndMain  = CreateWindowEx_(0, WindowClass, "", #WS_SYSMENU | #WS_MINIMIZEBOX, 100, 100, 640, 480, 0, 0, 0, 0)

ShowWindow_(hWndMain,  #SW_SHOWDEFAULT)
UpdateWindow_(hWndMain);

While GetMessage_(msg.MSG, #Null, 0, 0 )
  TranslateMessage_(msg)
  DispatchMessage_(msg)
Wend
End