Private Sub cmdPlay_Click()
Static gespeeld As Integer 'aantal keren dat er gespeeld is
Static gewonnen As Integer 'aantal keer dat er gewonnnen is
Dim ill(2) As Integer 'de nummers van de getrokken beelden
Dim teller As Integer 'de nummers van de vakken
Randomize
For teller = 0 To 2
ill(teller) = Int(Rnd * 4) + 1 'in een ImageList begint de telling vanaf één
picDisplay(teller).Picture = ImageList1.ListImages(ill(teller)).Picture
Next teller
gespeeld = gespeeld + 1
If ill(0) = ill(1) Then
If ill(1) = ill(2) Then
MsgBox "Gewonnen"
gewonnen = gewonnen + 1
End If
End If
lblScore.Caption = gespeeld & " keer gespeeld" & vbCrLf & gewonnen
& " keer gewonnen (" & Format(gewonnen / gespeeld * 100,
".00") & "%)"
End Sub