Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If TextBox1.Text = "" Then
            If TextBox1.ForeColor = Color.Red Then
                TextBox1.ForeColor = Color.Green
            Else
                TextBox1.ForeColor = Color.Red
            End If
        End If