codice:
dim pippo as integer

Private Sub Text1_Click()
pippo = 3
Text1.Text = "Il valore della variabile è " & pippo
End Sub
:quipy: