PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
control.NullColor = Color.Coral
control.AllowNull = True
control.CausesValidation = True
control.Text = ""End SubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
control.ResetNullColor()
End Sub