TetxBox GotFocus

Private Sub txtUname_GotFocus(sender As Object, e As EventArgs) Handles txtUname.GotFocus
        If txtUname.Text = "Username" And txtUname.ForeColor = Color.Gray Then
            txtUname.Clear()
            txtUname.ForeColor = Color.Black
        Else
            txtUname.ForeColor = Color.Black
        End If
End Sub