Project_exercise#2

Dim RGBValue As Integer

Private Sub cmdClick_Click()
Coins.Visible = False

lbl1.Caption = Int(Rnd * 10) lbl2.Caption = Int(Rnd * 10) lbl3.Caption = Int(Rnd * 10) If (lbl1.Caption = 7) Or (lbl2.Caption = 7) Or (lbl3.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 mnuClose_Click()
End
End Sub

Private Sub mnuGreen_Click()
FrmLucky7.BackColor = RGB(10, 150, 10)
End Sub

Private Sub mnuOrange_Click()
FrmLucky7.BackColor = RGB(199, 95, 0)
End Sub

Private Sub mnuPink_Click()
FrmLucky7.BackColor = RGB(238, 63, 95
End Sub

Private Sub mnuRed_Click()
FrmLucky7.BackColor = RGB(150, 12, 10)
End Sub

Private Sub mnuViolet_Click()
FrmLucky7.BackColor = RGB(192, 36, 192)
End Sub

Private Sub mnuYellow_Click()
FrmLucky7.BackColor = RGB(255, 204, 26)
End Sub