Display Right Click Menu

[Deepak Sakpal]

How to display textbox's default right click menu on a button's click event ?

[RobDog888]

I saw your thread and tried to get the solution. Seems I was making it harder
then it should of been. I just had to figure it out so here it is...

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