Public Class Form1
 
    Dim name1 As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        name1 = TextBox1.Text
 Label1.Text = name1
    End Sub
 
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If (e.KeyCode = Keys.Enter) Then
            name1 = TextBox1.Text
 Label1.Text = name1
        End If
    End Sub 
End Class