Private Sub Form_Load()
Dim l!
Dim c As New Collection
On Error GoTo err1
Do
l = l + 1
c.Add l
DoEvents
Loop
err1:
MsgBox l
End Sub
Private Sub Command1_Click()
Dim l!
Dim c As New Collection
On Error GoTo err1
Do
l = l + 1
Me.Caption = l
c.Add l
DoEvents
Loop
err1:
MsgBox l
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
