[vb6] aumentare una variabile e visualizzarla

[ciro78]

Ciao a tutti.Vorrei che cliccand su un pulsante il valore di una variabile aumentasse.Cliccando su un secondo visualizzase questa variabile.

Ho scritto il seguente codice

Sub pippo()
command1_onclick
x = x + 1

End Sub



Function valore(incognita As Integer) As Integer
Dim y As Integer
y = x

End Function

Private Sub command2_click()
MsgBox valore
End Sub

mi da due errori.il primo non mi visualizza alcun valore...
il secondo mi evidenzia

Private Sub command2_click()

di giallo e mi dice argomento nn facoltativo.quando aggiungo integer mi dice errore previsto fine istruzione