Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'判斷函數調用時指定虛擬鍵的狀態
Private Sub Command1_Click()
Label1.Caption = ""
End Sub
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If MyHotKey(vbKeyV) And MyHotKey(vbKeyB) Then Label1.Caption = "歡迎與我交流VB"
'If MyHotKey(vbKeyF11) Then Label1.Caption = "歡迎與我交流VB"
End Sub
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function