'注意:
'程序中,设置当活动控件为不是文本框时,屏蔽 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
