Public Class frmPerformClick
 
    Dim txt As New TextBox With {.Parent = Me, .Top = 50}
    Dim WithEvents btn As New Button With {.Parent = Me}
 
 
    Private Sub frmPerformClick_KeyDown(sender As Object, _
              e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        If e.KeyCode = Keys.F3 Then
            btn.PerformClick()
            e.handled = true
        End If
    End Sub
 
 
    Private Sub frmPerformClick_Load(sender As System.Object, _
                    e As System.EventArgs) Handles MyBase.Load
 
        Me.KeyPreview = True        
    End Sub
 
 
    Private Sub btn_Click(sender As Object, _
             e As System.EventArgs) Handles btn.Click
        MessageBox.Show("Click")
    End Sub
End Class