EXERCISE NO. 2

Dim RGBValue As Integer

Private Sub cmdCLICK_Click()
Coins.Visible = False

labelA.Caption = Int(Rnd * 10)

labelB.Caption = Int(Rnd * 10)

labelC.Caption = Int(Rnd * 10)

If (labelA.Caption = 7) Or (labelB.Caption = 7) Or (labelC.Caption = 7) Then

Coins.Visible = True

Beep

End If

End Sub

Private Sub cmdEXIT_Click()

End

End Sub

Private Sub mnuAuthor_Click()

frmAuthor.Show
End Sub

Private Sub mnuBlue_Click()

FrmLucky7.BackColor = RGB(10, 10, 150)

End Sub

Private Sub mnuGreen_Click()

FrmLucky7.BackColor = RGB(10, 150, 10)

End Sub

Private Sub mnuOrange_Click()

FrmLucky7.BackColor = RGB(255, 121, 0)

End Sub

Private Sub mnuPink_Click()

FrmLucky7.BackColor = RGB(255, 201, 255)

End Sub

Private Sub mnuRed_Click()

FrmLucky7.BackColor = RGB(255, 0, 0)

End Sub

Private Sub mnuViolet_Click()

FrmLucky7.BackColor = RGB(99, 0, 86)

End Sub

Private Sub mnuYellow_Click()

FrmLucky7.BackColor = RGB(255, 255, 0)

End Sub

Private Sub mnuClose_Click()
End
End Sub