Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
  If Button = 1 Then 
    PopUpMenu "DeinPopUpMenuName"
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de