Dim X As Integer

Dim Y As Integer

Dim z As Integer

Dim bet As Currency

Dim money As Currency

Dim roll As Integer

Dim numToHit As Integer

Private Sub cmdRoll_Click()

txtMoney.Text = Str(money)

lblMessage = ""

lblRollTheBones = ""

lblBalance = "Your Balance"

If roll = 0 Then 'start first secton

Randomize Timer

X = Int(Rnd * 5) + 1

Select Case X:

Case 1:

Image1.Picture = LoadPicture("C:\vb\dice1.bmp")

Case 2:

Image1.Picture = LoadPicture("C:\vb\dice2.bmp")

Case 3:

Image1.Picture = LoadPicture("C:\vb\dice3.bmp")

Case 4:

Image1.Picture = LoadPicture("C:\vb\dice4.bmp")

Case 5:

Image1.Picture = LoadPicture("C:\vb\dice5.bmp")

Case 6:

Image1.Picture = LoadPicture("C:\vb\dice6.bmp ")

End Select

Randomize Timer

Y = Int(Rnd * 5) + 1

Select Case Y

Case 1:

Image2.Picture = LoadPicture("C:\vb\dice1.bmp")

Case 2:

Image2.Picture = LoadPicture("C:\vb\dice2.bmp")

Case 3:

Image2.Picture = LoadPicture("C:\vb\dice3.bmp")

Case 4:

Image2.Picture = LoadPicture("C:\vb\dice4.bmp")

Case 5:

Image2.Picture = LoadPicture("C:\vb\dice5.bmp")

Case 6:

Image2.Picture = LoadPicture("C:\vb\dice6.bmp ")

End Select

z = X + Y 'total number for dice

'check first section results

If z = 2 Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

lblMessage = "Snake Eyes"

money = money - bet

txtMoney.Text = (money)

'MsgBox "Snake Eyes", vbExclamation, "Dice Game"

lblMessage = "Snake Eyes, Try it Again"

roll = 0

ElseIf z = 3 Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

money = money - bet

txtMoney.Text = (money)

'MsgBox "Craps, You Lose", vbExclamation, "Dice Game"

lblMessage = "Craps, Try Again"

roll = 0

ElseIf z = 12 Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

money = money - bet

txtMoney.Text = Str(money)

'MsgBox "Craps, You Lose", vbExclamation, "Dice Game"

lblMessage = "Try Again, go for 7 or 11"

roll = 0

'Winner code

ElseIf z = 7 Or z = 11 Then

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

money = money + bet

txtMoney.Text = Str(money)

lblMessage = "Lucky Number " & (z) & " You Win"

roll = 0

Else

numToHit = z

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

lblMessage = (z) & " is the point, roll another " & (z)

roll = 1

End If 'End first roll results

ElseIf roll = 1 Then 'Start second section 'And goneThrough = 1

Randomize Timer

X = Int(Rnd * 5) + 1

Select Case X:

Case 1:

Image1.Picture = LoadPicture("C:\vb\dice1.bmp")

Case 2:

Image1.Picture = LoadPicture("C:\vb\dice2.bmp")

Case 3:

Image1.Picture = LoadPicture("C:\vb\dice3.bmp")

Case 4:

Image1.Picture = LoadPicture("C:\vb\dice4.bmp")

Case 5:

Image1.Picture = LoadPicture("C:\vb\dice5.bmp")

Case 6:

Image1.Picture = LoadPicture("C:\vb\dice6.bmp ")

End Select

Randomize Timer

Y = Int(Rnd * 5) + 1

Select Case Y

Case 1:

Image2.Picture = LoadPicture("C:\vb\dice1.bmp")

Case 2:

Image2.Picture = LoadPicture("C:\vb\dice2.bmp")

Case 3:

Image2.Picture = LoadPicture("C:\vb\dice3.bmp")

Case 4:

Image2.Picture = LoadPicture("C:\vb\dice4.bmp")

Case 5:

Image2.Picture = LoadPicture("C:\vb\dice5.bmp")

Case 6:

Image2.Picture = LoadPicture("C:\vb\dice6.bmp ")

End Select

z = X + Y 'total number for dice

'lose second section

If z = 7 Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

money = money - bet

txtMoney.Text = Str(money)

'MsgBox "7 You Lose", vbCritical, "Dice Game"

lblMessage = "Try Again, You Busted"

roll = 0

numToHit = 0

'win second section

ElseIf numToHit = z Then

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

money = money + bet

txtMoney.Text = Str(money)

'MsgBox "Winner", vbExclamation, "Dice Game"

lblMessage = "You Hit the Mark, number " & (z)

roll = 0

numToHit = 0

Else

lblMessage = (z) & " and you need " & (numToHit)

End If 'End second roll results

End If 'End secnd section

End Sub

Private Sub opt5_Click()

bet = 5

End Sub

Private Sub opt10_Click()

bet = 10

End Sub

Private Sub opt20_Click()

bet = 20

End Sub

Private Sub cmdExit_Click()

End

End Sub