Problemer med Kryds og Bolle

har i noget kode ?

Lav en counter, og tjek hver gang i trykker om der er trykket 3 gange. Ved nyt spil nulstilles den

Dim i As Long
Private Sub Command1_Click()
  i = i + 1
  If i > 3 Then
    MsgBox "Der er allerede trykket 3 gange - start nyt spil"
    i = 0
  End If
End Sub