[HASAN6.0]

كود :

Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter
       If TextBox1.Text = "User Name" Then TextBox1.Text = ""
   End Sub

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
       If TextBox1.Text = "" Then TextBox1.Text = "User Name"
   End Sub