problem

x = x + 1

Men det kanske du redan hade förstått? ;)

Ditt problem är nog snarare att du får ett nytt "x" varje gång du går in i funktionen. Alltså bör du deklarera en global variabel. Skriv även "Option Explicit" högst uppe i koden. Då tvingar du dig själv att deklarera alla variabler. Det underlättar betydligt när det gäller att veta vad man gör.

Du kan ändra dim på variabeln x till Static, det blir då så här.

Private Sub Knapp_Click()
Static x As Integer
x = x + 1
Form1.Print x
End sub

:e