Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
  ' Tasten abfragen
  Select Case KeyCode
    Case vbKeyC, vbKeyV
      ' Strg+C/Strg+V unterdrücken
      If Shift = 2 Then KeyCode = 0
    Case vbKeyInsert
      ' Strg+Insert -> Kopieren unterdrücken
      If Shift = 2 Then
        KeyCode = 0
      ElseIf Shift = 1 Then
        ' Umsch+Insert -> Einfügen unterdrücken
        KeyCode = 0
      End If
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de