kadrleyn
Member

Code:
Private WithEvents TControl As MSForms.TextBox
Private Sub TControl_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 And Shift = 0 Then
Run "RightClickMenuTextBox"
End If
End Sub
These operations can be performed with the right click menu :
☑ Copy
☑ Paste
☑ Cut
☑ Clear
☑ Telephone
Source
Last edited by a moderator: