here is my feeble attempt, maybe it might help :(
Global CreateWindowEx(window,Title$z,message$z, flags,x,y,w,h,Parent,guiid, hInstance,dunno); Global RegisterClassEx(wndclassex:WNDCLASSEX); Global GetModuleHandle(modname$); Const WS_OVERLAPPED = 0 Const WS_VISIBLE = $10000000 user32 = LoadLibraryA ("user32.dll") Kernel32 = LoadLibraryA ("Kernel32.dll") If user32=Null Notify("Konnte user32.dll nicht laden.") Else CreateWindowEx=GetProcAddress(user32,"CreateWindowExA") RegisterClassEx=GetProcAddress(user32,"RegisterClassExA") GetModuleHandle=GetProcAddress(Kernel32,"GetModuleHandleA") EndIf If user32=Null Notify("Konnte Kernel32.dll nicht laden.") Else GetModuleHandle=GetProcAddress(Kernel32,"GetModuleHandleA") EndIf myInstance% = GetModuleHandle(Null) Type WNDCLASSEX Field size% Field style% Field lpfnWndProc% Field extra% Field wndExtra% Field hInstance% Field hIcon% Field hCursor% Field bg% Field menuname$ Field classname$ Field hIconSm% End Type wnd:WNDCLASSEX = New WNDCLASSEX wnd.size = SizeOf(WNDCLASSEX) wnd.style = CS_HREDRAW wnd.lpfnWndProc = Null wnd.extra = DLGWINDOWEXTRA wnd.wndExtra=0 wnd.hInstance = myInstance wnd.hIcon=0 wnd.hCursor=0 wnd.bg=COLOR_WINDOW wnd.menuname=Null wnd.classname="test" wnd.hiconsm=Null If Not RegisterClassEx(wnd) Then Notify("could not register class") If Not CreateWindowEx(0,"test","test window",WS_OVERLAPPED | WS_VISIBLE,0,0,640,480,0,0,myInstance ,Null) Then Notify("could not create window") While Not KeyDown(KEY_ESCAPE) Wend