

Private Sub cmdcan_Click()
End
End Sub
Private Sub cmdClick_Click()
Coins1.Visible = False
lblg1.Caption = Int(Rnd * 10)
lblg2.Caption = Int(Rnd * 10)
lblg3.Caption = Int(Rnd * 10)
If (lblg1.Caption = 7) Or (lblg2 = 7) Or (lblg3 = 7) Then
Coins1.Visible = True
Beep
End If
End Sub
No comments:
Post a Comment