[VB6] Incrementare una variabile per il conteggio dei clic

[MItaly]

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

---EDIT---
Anticipato...