Visual Basic - Menu al hacer click con el boton izq.

Hola que tal.

alguien de uds. me prodria dar alguna idea de como desplegar un menu al momento de hacer click con el boton izq.???

por su tiempo gracias

crea un formulario con una imagen que se llame "imgIcon" luego en el evento MouseDown" pone este codigo

Dim IX As Integer, IY As Integer
Dim hMenu As Long, hSubMenu As Long, R As Integer
Dim menRect As Rect
If Button And 2 Then
ScaleMode = TWIPS
menRect.Left = 0
menRect.Top = 0
menRect.Right = Screen.Width / Screen.TwipsPerPixelX
menRect.Bottom = Screen.Height / Screen.TwipsPerPixelY
IX = (X + Left + imgIcon.Left) \ Screen.TwipsPerPixelX
IY = (Y + Top + imgIcon.Top + imgIcon.Height) \ Screen.TwipsPerPixelY
hMenu = GetMenu(FrmMenus.hWnd)
hSubMenu = GetSubMenu(hMenu, 0)
R = TrackPopupMenu(hSubMenu, 1, IX, IY, 0, FrmMenus.hWnd, menRect)
End If

luego crea un modulo y en declaraciones pone esto

Option Explicit
Global Const TWIPS = 1
Global Const PIXELS = 3
Global Const RES_INFO = 2
Global Const MINIMIZED = 1

Type Rect
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type

'Declaraciones de 16 bits
Declare Function TrackPopupMenu Lib "User" (ByVal hMenu%, ByVal wFlags%, ByVal X%, ByVal Y%, ByVal r2%, ByVal hWd%, R As Rect) As Integer
Declare Function GetMenu Lib "User" (ByVal hWd%) As Integer
Declare Function GetSubMenu Lib "User" (ByVal hMenu%, ByVal nPos%) As Integer
Declare Function InsertMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer

despues crea otro formulario que se llame FrmMenus y en el crea un menu y pone su index a "1",

Creo que seriá más sencillo usar el método PopupMenu

Si de acuerdo pero este metodo (PopUpMenu), ¿Puede llamar un menu de otro formulario?.

En el form donde quieras que aparezca un menu contextual, en la barra de menus, crea un menu con el nombre de Especial, debes ponerlo visible = false; luego en el evento del form "mouseup_clik" escribes :

if buton = 2 then
popupmenu mnuespecial
endif

y veras lo que ocurre.

satisfecho

De igual forma puedes llamar un menu de otra forma

PopUpMenu OtraForma.mnuEspecial