Håller på med ett sten sax påse spel så här långt har jag kommit.

Dim Spelare As Integer
Private Sub cmdAvsluta_Click()
End
End Sub

Private Sub cmdIgen_Click()
cmdIgen.Visible = False
cmdSpela.Visible = True
optSten.Visible = True
optSax.Visible = True
optPase.Visible = True

End Sub

Private Sub cmdSpela_Click()
Randomize
Select Case Int(Rnd * 3) + 1
Case 1
picDator = picSten
Select Case Spelare
Case 1
lblVisa = "Oavgjort"
Case 2
lblVisa = "Du förlorade"
Case 3
lblVisa = "Du vann"
End Select
Case 2
picDator = picSax
Select Case Spelare
Case 1
lblVisa = "Du vann"
Case 2
lblVisa = "Oavgjort"
Case 3
lblVisa = "Du förlorade"
End Select
Case 3
picDator = picPase
Select Case Spelare
Case 1
lblVisa = "Du förlorade"
Case 2
lblVisa = "Du vann"
Case 3
lblVisa = "Oavgjort"
End Select
End Select
cmdIgen.Visible = True
cmdSpela.Visible = False
optSten.Visible = False
optSax.Visible = False
optPase.Visible = False



End Sub

Private Sub Form_Load()
cmdSpela.Visible = True
cmdIgen.Visible = False
End Sub

Private Sub optPase_Click()
picSpelare = picPase
Spelare = 3
End Sub

Private Sub optSax_Click()
picSpelare = picSax
Spelare = 2
End Sub

Private Sub optSten_Click()
picSpelare = picSten
Spelare = 1
End Sub


Men nu gäller det att räkna vinster. Jag har förökt med if satser men jag får inte ihop det. Tacksam för all hjälp jag kan få i hur man räknar vinster.

Gör en label och döp den till lblVinster, sätt caption till 0 och så sätter du in :

<code>lblVinster.caption=lblVinster.caption + 1</code>


Där du säger att någon har vunnit:

<code>
Private Sub cmdSpela_Click()
Randomize
Select Case Int(Rnd * 3) + 1
Case 1
picDator = picSten
Select Case Spelare
Case 1
lblVisa = "Oavgjort"
Case 2
lblVisa = "Du förlorade"
Case 3
lblVisa = "Du vann"
'T.e.x Här!!! ---> lblVinster.caption=lblVinster.caption + 1
End Select
Case 2
</code>

Så sätter du in den raden (eller gör den till en sub först så blir det mindre kod) på alla ställen du har lblVisa="Du vann"

Försök så och säg till om du behöver mer hjälp eller om jag förklarade helt åt helvete // R-mus

Det fungerar alldels utmärkt.

Tackar så mycket.