Imports System.Runtime.InteropServices

Public Class HelloWindow
    Const WS_CAPTION As Integer = &HC00000
    Const WS_MAXIMIZEBOX As Integer = &H10000
    Const WS_MINIMIZEBOX As Integer = &H20000
    Const WS_OVERLAPPED As Integer = &H0
    Const WS_SYSMENU As Integer = &H80000
    Const WS_THICKFRAME As Integer = &H40000
    Const WS_OVERLAPPEDWINDOW As Integer = ( _
        WS_OVERLAPPED Or _
        WS_CAPTION Or _
        WS_SYSMENU Or _
        WS_THICKFRAME Or _
        WS_MINIMIZEBOX Or _
        WS_MAXIMIZEBOX)

    Const COLOR_WINDOW As Integer = 5
    Const COLOR_BTNFACE As Integer = 15

    Const CS_VREDRAW As Integer = &H1
    Const CS_HREDRAW As Integer = &H2
    Const CW_USEDEFAULT As Integer = &H80000000

    Const IDI_APPLICATION As Integer = 32512
    Const IDC_ARROW As Integer = 32512

    Const LTGRAY_BRUSH As Integer = 1

    Const SW_SHOWNORMAL As Integer = 1
    Const SW_SHOWDEFAULT As Integer = 10

    Const WM_DESTROY As Integer = &H2
    Const WM_PAINT As Integer = &HF

    Delegate Function WndProcDelgate( _
        ByVal hWnd As IntPtr, _
        ByVal Message As Integer, _
        ByVal wParam As IntPtr, _
        ByVal lParam As IntPtr _
    ) As IntPtr