如何屏蔽小键盘的输入？

Question

在用VB6做程序时，由于软件的需要，不允许小键盘输入数据。
怎样实现这样的功能？谢谢！

Answer 1

把NumLock关掉，不允许用户打开

Answer 2

或者在KEY_DOWN 里写，检查KEYCODE，如果是小键盘的，就TEXT1。LOKED=TRUE，在KEY_UP里写，
TEXT1。LOKED=FALSE，我觉得应该可以，就是笨点，（我没试过，我试试）

Answer 3

Private Sub Form_Load()
   me.KeyPreview = True
End IfPrivate Sub Form_KeyDown(keycode As Integer, shift As Integer)
   If keycode >= &H60 And keycode <= &H6F Then keycode = 0
End If

Answer 4

我试了，可以
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 96    '小键盘数字0
            Text1.Locked = True
    End Select
End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Text1.Locked = False
End Sub又，顺便问，如何不允许NUMLOKE打开