ActiveX exe problem.

[TiPeRa]

My First ActiveX exe:

Class1:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Form As Form
Public Cancel As Boolean
Public Sub go()
    Form.text1.Text = 1
    Do Until Cancel = True
        Sleep 1000
        Form.text1.Text = Form.text1.Text + 1
    Loop
End Sub

In another Project:

Form1

Dim This As New Class1
Private Sub Command1_Click()
    Set This.Form = Form1
    This.go
End Sub
Private Sub Command2_Click()
    This.Cancel = True
End Sub

When I run this, the number in the textbox increses by one every second. But when i try to click on Command2 I get:
Component Request Pending
An action cannot be completed because a
component (qwe) in not responding. Choose
"Swith To" to activate the component and correct
the problem.

How can I fix this?

[TheBao]

Append to your code as followed:

'class
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Form As Form
Public Cancel As Boolean
Public Sub go()
    Form.Text1.Text = 1
    Do Until Cancel = True
        DoEvents    'added this line to your code
        Sleep 1000
        Form.Text1.Text = Val(Form.Text1.Text) + 1 'avoid type mismatch error
    Loop
End Sub