sammen laegge vaerdier

hvordan finder jeg summen af alle mine indskud?


min kode:

Dim Gevinst, Indskud, Gevinstfaktor As Integer

Private Sub cmd10kr_Click()
Indskud = Indskud + 10
If Indskud > 500 Then
Indskud = 500
MsgBox "Du kan maximum satse 500 kr", 48, "Rolig nu.."
End If
lblIndskud.Caption = Indskud & " kr"
HScroll1.Value = Indskud 'indstiller scrollbar
End Sub

Private Sub cmd5kr_Click()
Indskud = Indskud + 5

If Indskud > 500 Then
Indskud = 500
MsgBox "Du kan maximum satse 500 kr", 48, "Rolig nu.."
End If
lblIndskud.Caption = Indskud & " kr"
HScroll1.Value = Indskud 'indstiller scrollbar
End Sub

Private Sub cmdAccepter_Click()
Indskud = Indskud + Val(Form1.txtIndsats.Text)

If Indskud > 500 Then
Indskud = 500
MsgBox "Du kan max satse 500 kr", 48, "Rolig nu.."
End If
lblIndskud.Caption = Indskud & " kr"
HScroll1.Value = Indskud 'indstiller scrollbar
End Sub

Private Sub cmdMax_Click()
Indskud = 500
lblIndskud.Caption = Indskud & " kr"
HScroll1.Value = Indskud 'indstiller scrollbar
End Sub

Private Sub cmdSlet_Click()
Indskud = 0
lblIndskud.Caption = Indskud & " kr"
HScroll1.Value = Indskud 'indstiller scrollbar
End Sub

Private Sub cmdTræk_Click()
If Timer1.Enabled = False Then
startit
Else
stopit
End If
End Sub

Private Sub HScroll1_Scroll()
Indskud = HScroll1.Value
lblIndskud.Caption = HScroll1 & " kr"
End Sub

Private Sub Timer1_Timer()

Dim i, j, k As Integer
i = Int(4 * Rnd + 1)
j = Int(4 * Rnd + 1)
k = Int(4 * Rnd + 1)

'insætter billede
If i = 1 Then imgHjul1 = imgKlør
If i = 2 Then imgHjul1 = imgSpar
If i = 3 Then imgHjul1 = imgHjerter
If i = 4 Then imgHjul1 = imgRuder

If j = 1 Then imgHjul2 = imgKlør
If j = 2 Then imgHjul2 = imgSpar
If j = 3 Then imgHjul2 = imgHjerter
If j = 4 Then imgHjul2 = imgRuder

If k = 1 Then imgHjul3 = imgKlør
If k = 2 Then imgHjul3 = imgSpar
If k = 3 Then imgHjul3 = imgHjerter
If k = 4 Then imgHjul3 = imgRuder
Beep
End Sub

Private Function startit()
If Indskud > 0 Then
Timer1.Enabled = True
Gevinst = 0 'fra sidste spil
lblGevinst = 0 & " kr"
cmdTræk.Caption = "Stop"
Else
Beep
MsgBox "Indskud først, Tak!", 48, "Hov - Hov!!:"
End If
End Function

Private Function stopit()
Dim n1, n2, n3 As Integer
Randomize
n1 = Int(20 * Rnd + 1) 'valg af tilfældige
Randomize
n2 = Int(20 * Rnd + 1) 'tal for hvert hjul
Randomize
n3 = Int(20 * Rnd + 1)

Timer1.Enabled = False 'hjulene stoppes
'bestemmelse af det billede, der skal vises på hvert hjul
Select Case n1
Case 1, 2, 3, 4, 5
imgHjul1 = imgKlør
Case 6, 7, 8, 9, 10
imgHjul1 = imgRuder
Case 11, 12, 13, 14, 15
imgHjul1 = imgHjerter
Case 16, 17, 18, 19, 20
imgHjul1 = imgSpar
End Select

Select Case n2
Case 1, 2, 3, 4, 5, 6, 7
imgHjul2 = imgKlør
Case 8, 9, 10, 11, 12, 13
imgHjul2 = imgRuder
Case 14, 15, 16, 17
imgHjul2 = imgHjerter
Case 18, 19, 20
imgHjul2 = imgSpar
End Select

Select Case n3
Case 1, 2
imgHjul3 = imgKlør
Case 3, 4, 5, 6, 7, 8
imgHjul3 = imgRuder
Case 9, 10, 11, 12, 13, 14, 15
imgHjul3 = imgHjerter
Case 16, 17, 18, 19, 20
imgHjul3 = imgSpar
End Select

'beregning af gevinst:
Gevinstfaktor = 0
If (imgHjul1 = imgHjul2) And (imgHjul2 = imgHjul3) Then
Gevinstfaktor = 20
ElseIf (imgHjul1 = imgHjul2) Or (imgHjul2 = imgHjul3) Then
Gevinstfaktor = 10
ElseIf imgHjul3 = imgKlør Then
Gevinstfaktor = 5
End If

Gevinst = Indskud * Gevinstfaktor
lblGevinst.Caption = Gevinst & " kr"
cmdTræk.Caption = "Træk"
If chkHusk = 1 Then
lblIndskud.Caption = Indskud & " kr"
Else
Indskud = 0
lblIndskud.Caption = 0 & " kr"
End If

End Function