VB6 Slots Machine

Uploader: Blueman57
Video Description: Form1 Codes
Spin-
Label1.Caption = Int(Rnd * 4)
Label2.Caption = Int(Rnd * 4)
Label3.Caption = Int(Rnd * 4)
Coin.Caption = Coin.Caption - 1
If (Label1.Caption = 0) And (Label2.Caption = 0) And (Label3.Caption = 0) Then
Coin.Caption = Coin.Caption + 10
MsgBox "You Win $10", vbInformation, "Winner"
End If
If (Label1.Caption = 1) And (Label2.Caption = 1) And (Label3.Caption = 1) Then
Coin.Caption = Coin.Caption + 20
MsgBox "You Win $20", vbInformation, "Winner"
End If
If (Label1.Caption = 2) And (Label2.Caption = 2) And (Label3.Caption = 2) Then
Spin-
Coin.Caption = Coin.Caption + 40
MsgBox "You Win $40", vbInformation, "Winner"
End If
If (Label1.Caption = 3) And (Label2.Caption = 3) And (Label3.Caption = 3) Then
Coin.Caption = Coin.Caption + 80
MsgBox "You Win $80", vbInformation, "Winner"
End If
If Coin.Caption = 0 Then
MsgBox "Game Over"
Command1.Enabled = False
End If
End-
Unload Me
Pay Tabels-
Form2.Show
Restart-
Coin.Caption = 100
Timer1-
Shape1.Visible = True
Timer2-
Shape1.Visible = False
Timer3-
Label4.ForeColor = &HFF&Timer4-
Label4.ForeColor = &H0000FF00&Form2 Codes
Return-
Unload Me
Timer1-
Label11.ForeColor = &HFF&Timer2-
Label11.ForeColor = &H0000FF00&download my slots
http://www.plunder.com/Slots-download-155481.htm

Tags for this video: basic codes mahine slots sucks usa vb6 visual
See more videos uploaded by Blueman57

What do you want to do next ?

Play Casino Games - 10% Cash Bonus, more than 75 great online casino games
Bet on Sports - 10% Cash Bonus, Live Lines Inferno, Comprehensive Betting Advice
Play Backgammon - 20% Cash Bonus, popular $50000 Backgammon Tournaments
Play Internet Poker - 110% Cash Bonus, $175000 Guaranteed Poker Tournaments
Bet on Horses - 10% Cash Bonus, Horse Betting Toolkit, Featured Race of the Week
Play Online Bingo - Free $6 Bonus. Bingo Tourneys, Slots, Video Poker, Keno games

Subscribe to our newsletter - Learn how to make $200 per day playing roulette

Related Videos


Visual Basic Slots Game By Danny	Tutorial #10 Video 161: Button game (Visual Basic)	Visual Basic 6 Program: Copy Machine

Visual Basic Tetris	Calculator in Visual Basic 6.0 by dDuck	Visual Basic 6.0 Game