Dim bet As Integer
Dim wallet As Integer
Dim winPay As Integer
Dim sevens As Integer




Private Sub Command1_Click()
Dim box1 As Integer
Dim box2 As Integer
Dim box3 As Integer
wallet = (wallet - bet)
Picture1.Cls
Picture2.Cls
Picture3.Cls
box1 = Int(Rnd() * 10)
box2 = Int(Rnd() * 10)
box3 = Int(Rnd() * 10)
Picture1.Picture = LoadPicture("C:\Vbasic\lucky777\" + CStr(box1) + ".gif")
Picture2.Picture = LoadPicture("C:\Vbasic\lucky777\" + CStr(box2) + ".gif")
Picture3.Picture = LoadPicture("C:\Vbasic\lucky777\" + CStr(box3) + ".gif")
sevens = 0
If box1 = 7 Then
sevens = (sevens + 1)
End If
If box2 = 7 Then
sevens = (sevens + 1)
End If
If box3 = 7 Then
sevens = (sevens + 1)
End If
If sevens = 0 Then
winPay = 0
ElseIf sevens = 1 Then
winPay = (bet * 2)
ElseIf sevens = 2 Then
winPay = (bet * 10)
Else
winPay = (bet * 100)
End If
Text3 = CStr(winPay)
wallet = (wallet + winPay)
Text2 = CStr(wallet)
bet = 0
Text1 = CStr(bet)
End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()
If bet <= 5 Then
bet = 5

Else
bet = bet

End If
Text1 = CStr(bet)
Text2 = CStr(wallet - bet)
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
wallet = 100
End Sub
