کلاس Combo در api

Dim items() As String

 

"FreeBSD", "OpenBSD", "NetBSD", "Solaris", "Arch" }; 

Case WM_CREATE,WM_SHOWWINDOW

for i = 0 To 4 

SendMessageW hwndCombo,CB_ADDSTRING, 0,(LPARAM) items(i)

Next

case WM_COMMAND

if  HIWORD(wParam)=BN_CLICKED Then 

SendMessage(hwndCombo, CB_SHOWDROPDOWN,(WPARAM)TRUE, 0)

End If 

if  HIWORD(wParam)=CBN_SELCHANGE)

sel=SendMessage hwndCombo,CB_GETCURSEL,0, 0 

(SetWindowTextW hwndStatic,items(sel

End if