Contador sumatorio

[majo83]

Hola tengo el siguiente codigo,es un programa que simula una tragaperras:

Dim num As Integer
Dim num1 As Integer
Dim num2 As Integer




num = Int(3 * Rnd() + 1)
num1 = Int(3 * Rnd() + 1)
num2 = Int(3 * Rnd() + 1)


If (num = 1) Then
PictureBox1.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\fresa.gif")

ElseIf (num = 2) Then
PictureBox1.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\platano.jpg")
Else
PictureBox1.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\cerezas.jpg")

End If
If (num1 = 1) Then
PictureBox2.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\fresa.gif")

ElseIf (num1 = 2) Then
PictureBox2.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\platano.jpg")
Else
PictureBox2.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\cerezas.jpg")
End If

If (num2 = 1) Then
PictureBox3.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\fresa.gif")

ElseIf (num2 = 2) Then
PictureBox3.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\platano.jpg")
Else
PictureBox3.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\cerezas.jpg")

End If






If (num = 1 And num1 = 1 And num2 = 1) Then
MessageBox.Show("Has ganado 15 euros")



End If

If (num = 2 And num1 = 2 And num2 = 2) Then
MessageBox.Show("Has ganado 25 euros")

End If

If (num = 3 And num1 = 3 And num2 = 3) Then
MessageBox.Show("Has gando 45 euros")
End If

Y lo que quiero es que me vaya sumando los premios y me los muestre en un textbox.Son tres premios 15 euros si num,num1 y num2 son igual a 1, 25 euros si
son igual a 2 y 45 euros si son igual a 3.

Y otra duda es quiero que el jugador tenga 20 intentos y cada vez que le de al boton de jugar se vaya restando uno pero no se como traslado a codigo la accion de darle al boton de jugar.Gracias