请先设置设置窗体的 "键预览" 属性为真

'注意:
'程序中,设置当活动控件为不是文本框时,屏蔽 del 键,但实际使用中,
'应考虑到 当活动控件为 combobox等等时, 也不能屏蔽 del 键.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next

    If KeyCode = 46 Then
        If Not TypeOf Screen.ActiveControl Is TextBox Then KeyCode = 0
    End If
   
End Sub