ник: час
Ну нифига себе. 
Я поначалу подумал что весь код чтобы включить NUM Lock 
Спасибо!
Чё-то клаве пофигу - не включает она NUM Lock
Private Sub Кнопка4_Click()
Call SetNumLock(True)
End Sub
Sub SetNumLock(ByVal newValue As Boolean)
Dim keystat(0 To 255) As Byte
GetKeyboardState keystat(0)
keystat(vbKeyNumlock) = (keystat(vbKeyNumlock) And &HFE) Or (newValue And 1)
SetKeyboardState keystat(0)
End Sub
|
кстати
Это я жду , что засветиться светодиод (идиот)