[VB6] Incrementare una variabile per il conteggio dei clic

[Kdue]

Ciao a tutti, ho un problema ad alimentare una variabile con VB6
mi spiego:
ho dichiarato la variabile con questo nome
Dim contaclick As Integer

che mi serve a contare i click del mouse sul form, poi ho una label con il nome totale
quindi nel form ho messo:

Private Sub Form_Click()
totale = contaclick & ""
contaclick = contaclick + 1
End Sub

Tutto funziona ma domanda:
Perchè la variabile comincia a contare dal secondo click del mouse in avanti e non dal primo. Es Primo click totale rimane 0, secondo Click la variabile diventa 1

Forse perchè in programmazione si comincia a contare da 0?
Se così fosse come faccio a fare apparire alla label "totale" il numero 1 al primo click se per la macchina è 0. spero di non aver fatto confusione. :master: non so come fare.
grazie ragazzi.

[oregon]

Scusa ... ma se *prima* assegni contaclick al totale e solo *dopo* aumenti contaclick, come fa totale ad essere aggiornato?

E poi, totale, usato in quel modo, a cosa serve?

[MItaly]

Private Sub Form_Click()
    contaclick = contaclick + 1
    totale = contaclick & ""
End Sub

---EDIT---
Anticipato...

[Kdue]

Roba da non crederci

Vi ringrazio molto. Se posso! vorrei porvi una domanda che avrei voluto aggiungere nella prima.

Ora!.. io vorrei fare in modo che se "totale" raggiunge il valore 10 deve apparire un'altro form utilizzando il metodo show che già ho con il nome "esatto"
e cliccando sul pulsante ricomincia (che si trova sul form "esatto")
si azzerasse il contatore e tutte le eventuali gif rese visibili (nel form1) prima di aver scaturito il metodo show.
ma già non riesco a far apparire il form "esatto" eppure ho scritto

If totale = 10 then
esatto.show
unload me
end if

e non funziona. perchè?
Esiste un'altro metodo per risolvere questo problema?.

[Kdue]

E poi, totale, usato in quel modo, a cosa serve?

Per oregon

totale e una Label sul form che riporta Visivamente il numero dei click fatti.

[EngLab]

Originariamente inviato da Kdue
eppure ho scritto

If totale = 10 then
esatto.show
unload me
end if

e non funziona. perchè?

Dove hai messo questo codice, scusa?

[Kdue]

l'ho messo nel form

Private Sub Form_Load()
If totale = 10 Then
esatto.Show
Unload Me
End If
End Sub
o provato anche così

Private Sub Form_Click()
If totale = 10 Then
esatto.Show
Unload Me
End If
End Sub

è ovvio che sto sbagliando qualche cosa ma non capisco cosa!!!? :master: potete aiutarmi ?

[oregon]

Va bene nella Form_Click, ma manca il codice che aumenta la variabile .... Dov'e' finito?

P.S. Per la label, e' meglio scrivere

totale.caption = CStr(contaclick)

[Kdue]

P.S. Per la label, e' meglio scrivere

totale.caption = CStr(contaclick)

cosa Significa CStr ?
Poi saresti così gentile da spiegarmi perchè dovrei mettere
totale.caption = CStr(contaclik)
visto che così funziona? ma accetto il consiglio ma mi piacerebbe conoscere il motivo o il beneficio grazie.

per quanto riguarda il codice che aumenta la variabile!

è in form_click! forse è meglio che vi metto il codice come sempre ribadite è meglio per tutti.

Private Sub Form_Click()
PlayWAV (App.Path & "\wav\nomefile.WAV")
contaclick = contaclick + 1
totale = contaclick & ""
End Sub


sotto totale = contaclick & "" avevo messo il costrutto If, ma non funge.
Cosa può essere? :master:

Grazie per l'aiuto .

[Kdue]

Ragazzi non voglio Rubarvi altro tempo ho riprovato scrivendo il codice da capo eh!!!
FUNGE

Ora non mi rimane che capire come fare il refresh. Visto che non ho ancora idea di come fare se avete voglia Vi va di darmi un consiglio? grazie comunque siete stati di grande aiuto.