RE:segundo boton desplegable
Si lo que quieres es un menu popup, esta es una opcion...
Todo va dentro de la forma
Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function CreatePopupMenu Lib \"user32\" () As Long
Private Declare Function TrackPopupMenu Lib \"user32\" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, ByVal lprc As Any) As Long
Private Declare Function GetSystemMenu Lib \"user32\" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function AppendMenu Lib \"user32\" Alias \"AppendMenuA\" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib \"user32\" (ByVal hMenu As Long) As Long
Private Declare Function GetCursorPos Lib \"user32\" (lpPoint As POINTAPI) As Long
Dim hMenu As Long
Private Sub Form_Load()
\'Create an empty popupmenu
hMenu = CreatePopupMenu()
\'Append a few menu items
AppendMenu hMenu, MF_STRING, ByVal 0&, \"Hello !\"
AppendMenu hMenu, MF_GRAYED Or MF_DISABLED, ByVal 0&, \"Testing ...\"
AppendMenu hMenu, MF_SEPARATOR, ByVal 0&, ByVal 0&
AppendMenu hMenu, MF_CHECKED, ByVal 0&, \"TrackPopupMenu\"
End Sub
Private Sub