Ciao ragazzi sono ancora qua, ho provato seguendo quello che ho letto nel libro (per il refresh) mo non riesco io vi metto il codice che ho scritto magari riuscite a farmi capire dove sbaglio. Premetto che l'unica cosa che non mi si aggiorna è la Label (contatore) chiamata TOTALE.
Dim contaclick As Integer
Const totraggiunto As Integer = 10
Nel FORM

Private Sub Form_Load()
pag1.Width = 17740
pag1.Height = 11050
End Sub

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


Nel Pulsante del Form 2 (che si chiama) Esatto ho un pulsante è ho messo questo codice


1° prova
Private Sub Command1_Click()
pag1.totale.Caption = 0
pag1.totale.Refresh
pag1.Show
Unload Me
End Sub
2° prova
Private Sub Command1_Click()
pag1.Refresh
pag1.totale.Caption = 0
pag1.Show
Unload Me
End Sub
ho provato anche con il costrutto if. Ma non so + cosa fare. se potete darmi un consiglio la apprezzo molto grazie.
AH Ripeto l'unica cosa che non riesco a far tornare a 0 (zero) è il la label Totale che da 10 deve tornare a 0 (zero).

dimenticavo un particolare La Label (totale) è sul primo form, questo si chiama (pag1)