Public Class frmIFOperatorDemo
 
    Dim WithEvents checkbox1 As New CheckBox With _
        {.Parent = Me, .Text = "BackColor Green?", .Width = 200}
 
    Dim textbox1 As New TextBox With _
        {.Parent = Me, .Top = 50, .Width = 200}
 
 
    Private Sub checkbox1_CheckedChanged(sender As Object, _
        e As System.EventArgs) Handles checkbox1.CheckedChanged
 
        textbox1.BackColor = _
             If(checkbox1.Checked, Color.Green, Color.White)
    End Sub
End Class