Fourth Activity

CODE

Private Sub chkBlue_Click()
lblDisplay.Caption = "Blue"
End Sub

Private Sub chkGreen_Click()
lblDisplay.Caption = "Green"
End Sub

Private Sub chkRed_Click()
lblDisplay.Caption = "Red"
End Sub

Private Sub chkYellow_Click()
lblDisplay.Caption = "Yellow"
End Sub

Private Sub cmdDefault_Click()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub

Private Sub cmdExit_Click()
If MsgBox("Close Application?", vbQuestion + vbYesNo, "Confirm") = vbYes Then
    End
End If
End Sub

Private Sub Form_Load()
lblDisplay.Caption = "Default"
lblDisplay.BackColor = &H0&
lblDisplay.ForeColor = &H8000000F
End Sub

Private Sub optBlue_Click()
lblDisplay.BackColor = &HFF0000
End Sub

Private Sub optGreen_Click()
lblDisplay.BackColor = &HC000&
End Sub

Private Sub optRed_Click()
lblDisplay.BackColor = &HFF&
End Sub

Private Sub optYellow_Click()
lblDisplay.BackColor = &HFFFF&
End Sub