VB - Display Right Click Menu From Command Button Click

[RobDog888]

This is how to send a right click to a textbox from another controls event.

Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
 
Private Const WM_RBUTTONDOWN As Long = &H204
Private Const WM_RBUTTONUP As Long = &H205
Private Const MK_RBUTTON As Long = &H2
 
Private Sub Command1_Click()
    Dim DaWord As Long
    DaWord = MakeDWord((Text1.Width / 15) / 2, (Text1.Height / 15) / 2) 'Centers the click and 15 is twips per pixel
    SendMessage Text1.hwnd, WM_RBUTTONDOWN, 2&, ByVal DaWord
    SendMessage Text1.hwnd, WM_RBUTTONUP, 2&, ByVal DaWord
End Sub
 
Private Function MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
    MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function