Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Timer1.interval = 10, timer1.enabled = true
Dim Hotkeyss As Boolean
Hotkeyss = GetAsyncKeyState(Keys.F10)
If Hotkeyss = True Then
YOUR CODE HERE
End If


