How I Can Keybind a Button? : I Need help to keybind this button, Wich mainly got this function:

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Toggle = Toggle + 1
        If Toggle = 1 Then
            Timer1.Start()
            Button1.Text = "Toggle Off"
        Else
            Timer1.Stop()
            Toggle = 0
            Button1.Text = "Toggle On"
        End If
