Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        MessageBox.Show("Test")
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub
 
    Private Sub Button2_KeyDown(sender As Object, e As KeyEventArgs) Handles _
      Button2.KeyDown
        If e.KeyCode = Keys.F3 Then
            Button1_Click(Nothing, Nothing)
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Button1_Click(Nothing, Nothing)
    End Sub
 
End Class