비주얼베이직 타이머를 이용한 핫키 설정

선언

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

   

F1 키를 눌렀을경우 메시지 박스 띄우기

   

타이머 인터벌 1000 정도로

   

Private Sub 타이머_Timer()

If GetAsyncKeyState(vbkeyF1) Then '만약 F1을 눌렀을 경우

MsgBox "메시지 박스" '메시지 박스를 띄운다

End If 'If 문 종료

End Sub