Public Class frmLightSwitch

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

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