Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
  Me.Text = "Hello " & Me.txtName.Text
End Sub 'txtName_TextChanged