[trakktour]

و عليكم السلام اخي
تفضل

كود :

   Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
       If TextBox1.Text = "ادخل كلمة السر" Then
           TextBox1.Clear()
           TextBox1.ForeColor = Color.Black
       End If
   End Sub

   Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
       If TextBox1.Text.Trim = "" Then
           TextBox1.Text = "ادخل كلمة السر"
           TextBox1.ForeColor = Color.Gray
       End If
   End Sub