如何在NumLock为关闭状态时还能从小键盘输入数字.

Question

您好！请问如下，是如何实现的？

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 45
Text1 = Text1 & "0"
Case 35
Text1 = Text1 & "1"
Case 40
Text1 = Text1 & "2"
Case 34
Text1 = Text1 & "3"
Case 37
Text1 = Text1 & "4"
Case 12
Text1 = Text1 & "5"
Case 39
Text1 = Text1 & "6"
Case 36
Text1 = Text1 & "7"
Case 38
Text1 = Text1 & "8"
Case 33
Text1 = Text1 & "9"
Case 46
Text1 = ""
End Select
Text1.SelStart = Len(Text1)
End Sub