Loop

Hey...
Er der nogen der kan svare mig på hvordan man looper dette:

Private Sub Command1_Click()
  Form1.Caption = Form1.Caption + 1
End Sub

Private Sub Form_Load()
  Form1.Caption = 0
End Sub

Så når man klikker på command1, bliver navnet i Form1, til at den selv tæller fra 0 - uendelig...?