hi all

I have to Write a Visual Basic Project to simulate a dice game known as ‘Craps’.
The rules of the game are

A player rolls two dice. Each die has six faces, These faces contain 1, 2, 3, 4, 5 and 6 spots.
The dice are rolled and after the dice have come to rest, the sum of the spots on the two upward faces is calculated.
If the sum on the first throw is 7 or 11 then the player wins.
If the sum on the first throw is 2 ("snake eyes"), 3 ("trey") or 12 ("boxcars") then the player loses (ie the house wins).
If the sum on the first throw is 4, 5, 6, 8, 9 or 10, then that sum becomes the player's "point".
To win in this case the player must continue rolling the dice until he makes his "point".
If the player rolls a 7 before he has made his point then he loses and the house wins.

how do i on the first throw when the sum = 4,5,6,8,9,10 get the sum to become the players point and continue rolling the dice unitl the player makes is point or if 7 is rolled during this time the player loses.
this is my code so far

Dim txt As Integer
Dim number As Integer
Dim number1 As Integer
Dim numbertotal As Integer
Dim RandomNum As Integer
Dim RandomNum2 As Integer

Private Sub point_Click()

End Sub

Private Sub play_Click()
roll.Visible = True

End Sub

Private Sub roll_Click()
Randomize Timer
RandomNum = Int(Rnd * 6) + 1
RandomNum2 = Int(Rnd * 6) + 1
Text1 = RandomNum
Text2 = RandomNum2
Select Case Text1
Case 1
dice1.Visible = True
dice1.Picture = LoadPicture("C:\university work\visual basic\craps\dice1.bmp")
Case 2
dice1.Visible = True
dice1.Picture = LoadPicture("C:\university work\visual basic\craps\dice2.bmp")
Case 3
dice1.Visible = True
dice1.Picture = LoadPicture("C:\university work\visual basic\craps\dice3.bmp")
Case 4
dice1.Visible = True
dice1.Picture = LoadPicture("C:\university work\visual basic\craps\dice4.bmp")
Case 5
dice1.Visible = True
dice1.Picture = LoadPicture("C:\university work\visual basic\craps\dice5.bmp")
Case 6
dice1.Visible = True
dice1.Picture = LoadPicture("C:\university work\visual basic\craps\dice6.bmp")
End Select
Select Case Text2
Case 1
dice2.Visible = True
dice2.Picture = LoadPicture("C:\university work\visual basic\craps\dice1.bmp")
Case 2
dice2.Visible = True
dice2.Picture = LoadPicture("C:\university work\visual basic\craps\dice2.bmp")
Case 3
dice2.Visible = True
dice2.Picture = LoadPicture("C:\university work\visual basic\craps\dice3.bmp")
Case 4
dice2.Visible = True
dice2.Picture = LoadPicture("C:\university work\visual basic\craps\dice4.bmp")
Case 5
dice2.Visible = True
dice2.Picture = LoadPicture("C:\university work\visual basic\craps\dice5.bmp")
Case 6
dice2.Visible = True
dice2.Picture = LoadPicture("C:\university work\visual basic\craps\dice6.bmp")
End Select
number = Text1
number1 = Text2
numbertotal = number + number1

Select Case numbertotal
Case 7, 11
total.Caption = "Your Point is" & Space(1) & numbertotal
info.Caption = "You Win!"
roll.Visible = False
Case 2, 3, 12
total.Caption = "Your Point is" & Space(1) & numbertotal
info.Caption = "You Lose"
roll.Visible = False
Case 4, 5, 6, 8, 9, 10
total.Caption = "Your Point is" & Space(1) & numbertotal
info.Caption = "Roll Again!"
End Select

End Sub

any help would be greatley appreciated

john