Originariamente inviato da Kdue
Premetto che l'unica cosa che non mi si aggiorna è la Label (contatore) chiamata TOTALE.

Nel FORM
Private Sub Form_Click()
PlayWAV (App.Path & "\wav\MISC1075.WAV") 'Richiama l'audio che indica fuori bersaglio
contaclick = contaclick + 1 'E' la variabile che alimenta il totale dei click
totale = contaclick & "" 'Mostra il risultato sulla label totale
If totale = 10 Then 'Se totale diventa 10
esatto.Show 'Appare il form "ESATTO"
Unload Me 'Chiude il form
End If
End Sub


Private Sub contenitore1_click() ' Contenitore è un frame che al suo interno ha 2 img.
PlayWAV (App.Path & "\wav\MISC1075.WAV")
contaclick = contaclick + 1
totale = contaclick & ""
If totale = 10 Then
esatto.Show
Unload Me
End If
End Sub
l'istruzione Unload come puoi notare è già presente nel from, quindi se il totale raggiunge 10 si chiude la pag1 e si apre la pagina Esatto.
così non va bene?. riesco ad aggiornare tutto tranne il contatore