#Include "windows.bi"

Dim Shared As HMODULE hInst
Dim Shared As ZString Ptr CommandLine

Function WinMain(hInst As HINSTANCE, hPrev As HINSTANCE, pszCmdLine As LPSTR, iCmdShow As Long) As Long
	
	MessageBox(NULL, "Narf!", "Pinky says...", MB_OK Or MB_ICONEXCLAMATION)
	Return 0

End Function

' Program start
hInst = GetModuleHandle(NULL)
CommandLine = GetCommandLine
WinMain(hInst, NULL, CommandLine, SW_SHOWDEFAULT)
ExitProcess(0)