[silverlight]

PHP كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DisplayWaterMark("Any text ", TextBox1)
    End Sub

    Private Sub TextBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseDown
        DisplayWaterMark("", TextBox1)
    End Sub

    Private Sub DisplayWaterMark(txt As String, textBox As TextBox)
        CType(textBox, TextBox).Text = txt
    End Sub