Højrekliks popup menu

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  PopupMenu *
End Sub

* = Menu (Menu editor)

Lav en menu (tools - Menu editor) og gør den usynlig (visible = False)

Hvis din form hedder form1, din menu hedder mnuMinMenu ogt din RichTextBox hedder RichTextBox1, virker følgende kode som MouseDown-eventen på din RichTextBox:

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Then
    Form1.PopupMenu mnuMinMenu
  End If
End Sub

/Martin

Ups - too slow :o(