Private Sub txtName_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtName.KeyPress
  If e.KeyChar.Equals(Chr(13)) Then
    Me.Text = "Hello " & txtName.Text
  Else
    Me.Text = "Hello"
  End If
End Sub 'txtName_KeyPress