Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.F1 Then
Panel1.Visible = True
TextBox1.Enabled = False
TextBox2.Focus()
End If
End Sub
Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
If TextBox2.Text <> "" Then
Panel1.Visible = False
TextBox1.Enabled = True
TextBox1.Text = TextBox2.Text
End If
End Sub