Private Sub TextBox1_MouseEnter(sender As Object, e As EventArgs) Handles TextBox1.MouseEnter TextBox1.ForeColor = Color.Red End Sub Private Sub TextBox1_MouseLeave(sender As Object, e As EventArgs) Handles TextBox1.MouseLeave TextBox1.ForeColor = Color.Black End Sub