可以采用下面的代码:

Private Sub FORM_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then KeyCode = 0
End Sub