olá Wesley e fácil basta criar um novo timer deixar ele como enable = true e colocar o código a baixo.
Dim hotkey1 As Boolean hotkey1 = GetAsyncKeyState(Keys.F5) If hotkey1 = True Then Button1.PerformClick() ' ou a função q você deseja ativar' End If Dim hotkey2 As Boolean hotkey2 = GetAsyncKeyState(Keys.F6) If hotkey2 = True Then Button2.PerformClick() ' ou a função q você deseja desativar' End If se der algum erro declara essa função aqui
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
olá Wesley e fácil basta criar um novo timer deixar ele como enable = true e colocar o código a baixo.
Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.F5)
If hotkey1 = True Then
Button1.PerformClick() ' ou a função q você deseja ativar'
End If
Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.F6)
If hotkey2 = True Then
Button2.PerformClick() ' ou a função q você deseja desativar'
End If
se der algum erro declara essa função aqui
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer