VBTut
Home
Tutorials
Resources
'put this at the top of your code. Private Declare Function GetAsyncKeyState Lib "user32"(ByVal vkey As Long) As Integer 'Timer1: Dim starthotkey As Boolean starthotkey = GetAsyncKeyState(Keys.'your hotkey here) If starthotkey = True Then 'main function of your program. end if