private sub form_click()dim i as integeri=i+1text1.text=val(text1)+1end sub
Private Sub Form_Click()Static num As Integernum = num + 1Text1 = numEnd SubPrivate Sub Form_Load()Text1 = 0End Sub