Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
' NumLock handling:
NumLockState = GetKeyState(VK_NUMLOCK)

If NumLockState <> 1 Then 'Om NumLock är av, sätt på den
'Tryck
keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
'Släpp
keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
NumLockState = 1
Label1.Caption = "On"
End If

Unload Me
End Sub