Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
If GetAsyncKeyState(112) <> 0 Then
Msgbox "Hotkey - F1"
End If
If GetAsyncKeyState(17) <> 0 Then
Msgbox "Hotkey - Ctrl"
End If
If GetAsyncKeyState(16) <> 0 And GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(112) <> 0 Then
MsgBox "Hotkeys - Shift + Ctrl + F1"
End If


If GetAsyncKeyState(112) <> 0 Then
Msgbox "Hotkey - F1"
End If
Private Sub UrTimerName_Timer()
If GetAsyncKeyState(112) <> 0 Then
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End If
End Sub