PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
control.Text = "ForeColor"
control.ForeColor = Color.Red
End SubPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
control.ResetForeColor()
End Sub