Hola a todo el foro, no se porque pero no puedo crear un DOT con CreateWindowEx, el codigo es de FreeBasic, pero es muy parecido al VB, puedo crear otro controles ( Button, Combo, Text), pero este no me sale....Gracias
'------------------------
#Include "windows.bi"
#Include "win/commctrl.bi"
#Include "win/commdlg.bi"
InitCommonControls
dim shared as hwnd hwnd1
Dim As MSG msg ' Message variable (stores massages)
hWnd1 = CreateWindowEx( 0, "#32770", "Hello", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 500, 300, 0, 0, 0, 0 )
While GetMessage( @msg, 0, 0, 0 ) ' Get message from window
TranslateMessage( @msg )
DispatchMessage( @msg )
Select Case msg.hwnd
Case hWnd1
Select Case msg.message
Case 273
End
case WM_paint
CreateWindowEx(ws_ex_topmost,"Dot","",ws_child or ws_visible or ws_clipchildren or ws_clipsiblings,0,0,6,6,hWnd1,0,GetModuleHandle(0),0)
End Select
End Select
Wend