Help a university student, PT 2

[Schizophonic]

I decided to make a second thread about it. Getting too long

Anyway, this is what i've done so far, and its got to be shown on a week on thusday.

Option Explicit
Dim money As Integer
Dim intSpin As Integer
Dim intPicture As Integer
Dim Spin As Integer
Dim Var1 As Integer
Dim Var2 As Integer
Dim Var3 As Integer
Dim winnings
 
 
Private Sub cmdbet_Click()
If money > 0 Then
money = money - 20
txtMoneyamount.Text = money
Else
cmddecrement.Visible = False
MsgBox "Insert more money!"
End If
 
End Sub
 
Private Sub cmdinsertcoin_Click()
money = 100
txtMoneyamount.Text = money
 
 
End Sub
 
Private Sub cmdspin_Click()
     Randomize
Call Form_Load
     txtwinnings.Text = winnings
If Var1 = 1 Then
winnings = 20
End If
If money > 0 Then
money = money - 20
txtMoneyamount.Text = money
Else
cmddecrement.Visible = False
MsgBox "Insert more money!"
End If
tmrspin.Enabled = True
Spin = money / 20
txtturnsavalible.Text = money
End Sub
 
 
Private Sub Form_Load()
Randomize
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
        
End Select
Select Case Int(8 * Rnd)
    Case 0
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
Private Sub imgbox1_Click()
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox1.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
 
Private Sub imgbox2_Click()
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox2.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
 
Private Sub imgbox3_Click()
Randomize
 
Select Case Int(8 * Rnd) ' Generates 0 to 7
    Case 0
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\bell.jpg")
    Case 1
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 2
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\cherry.jpg")
    Case 3
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\wildberry.jpg")
    Case 4
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\fruitsmoothy.jpg")
    Case 5
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\grape.jpg")
    Case 6
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\melon.jpg")
    Case 7
        imgbox3.Picture = LoadPicture("F:\MyWork\My Pictures\blackberry.jpg")
End Select
 
End Sub
 
Private Sub txtMoneyamount_Change()
 
If txtMoneyamount.Text = 0 Then
cmdinsertcoin.Enabled = True
Else
txtMoneyamount.Text = 100
cmdinsertcoin.Enabled = False
End If
txtMoneyamount.Text = money
End Sub

Now one of the basic make i need is to get the winnings to show. So if a melon appears, the winner gets 20 credits and so on. How do i do this?