vb程序中如何控制小键盘“num lock”键。程序开始运行时先记住“num lock”键的状态，然后自动关闭“num lock”键（让2、4、6、8键为方向键），待程序退出前再恢复“num lock”键的原来状态。

sendkeys不可以吗?

谢谢！但用代码如何实现：读当前“num lock”键信息，程序退出时恢复“num lock”键值？

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Long

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_CAPITAL = &H14
Private Const VK_NUMLOCK = &H90

Private Sub Command1_Click()
If GetKeyState(VK_CAPITAL) And &H1 Then
Else
'按下NUMLOCK 键
Call keybd_event(VK_NUMLOCK , 0, 0, 0)
Call keybd_event(VK_NUMLOCK , 0, KEYEVENTF_KEYUP, 0)
End If
End Sub

Private Sub Command2_Click()
If GetKeyState(VK_NUMLOCK ) And &H1 Then
'按下NUMLOCK 键
Call keybd_event(VK_NUMLOCK , 0, 0, 0)
Call keybd_event(VK_NUMLOCK , 0, KEYEVENTF_KEYUP, 0)
End If
End Sub

太谢谢你了！