Button Menu

docs.appendmenua

(SubclassWindow(hWnd

Somewhere in WM_INITDIALOG handler 

(btnMenu =GetDlgItem(IDC_BTN_ABOUT

("btnMenu.AddMenuItem(IDC_MNU_ONE,"Windows

("btnMenu.AddMenuItem(IDC_MNU_TWO,"Template

(btnMenu.AddMenuItem(IDC_MNU_THREE,"",MF_SEPARATOR

("btnMenu.AddMenuItem(IDC_MNU_FOUR,"Library

پیام اعلام راست کلیک توسط User به پنجره Right Clicked

Public Function MouseHookProc(ByVal nCode As Long,ByVal wParam As LongPtr,ByVal lParam As LongPtr) As LongPtr

      Dim MyMouseHookStruct As New

 ()MOUSEHOOKSTRUCT

Dim ret As Integer = 0

If (nCode < 0) Then

,Return CallNextHookEx(hHook, nCode, wParam

 (lParam

End If

If wParam = WM_RBUTTONDOWN Or wParam = WM_RBUTTONUP Then

Return -1

End If

,Return CallNextHookEx(hHook, nCode, wParam

 (lParam

End Function