il valore non è incrementato, perchè non hai associato nessuna azione all'evento Click del primo pulsante..
puoi risolvere più semplicemente così:
codice:Dim X As Integer Private Sub Command1_Click() X = X + 1 End Sub Private Sub command2_click() MsgBox X End Sub
cliccando sul primo bottone incrementi il valore di uno, mentre con il secondo visualizzi il contenuto della variabile