Turning off Ctrl+Z?

[Starsky]

Has anyone got any idea how to turn off the automatic Undo through Ctrl+Z on a RichTextBox control? I want to add a menu item with Ctrl+Z for my own, multiple, undo.

Cheers

[Joacim Andersson]

Sure! Just check for it in the KeyDown event:

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyZ And (Shift And vbCtrlMask) = vbCtrlMask Then
        KeyCode = 0
    End If
End Sub

Good luck!