Public Class frmLightSwitch

    Private Sub cmdOn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOn.Click
        lblBulb.Text = "On!"
        lblBulb.ForeColor = Color.Yellow
    End Sub

    Private Sub cmdOff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOff.Click
        lblBulb.Text = "Off!"
        lblBulb.ForeColor = Color.White
    End Sub
End Class