1. Class modulePrivate Const mcstrCMyCancel As String = "CMyCancel"

Dim mfrm As Form_frmCancel

Private Sub Class_Initialize()
   Set mfrm = New Form_frmCancel
   mfrm.Visible = True
End Sub

Private Sub Class_Terminate()
   Set mfrm = Nothing
End Sub

Public Property Get CancelClicked() As Boolean
   DoEvents
   CancelClicked = mfrm.CancelClicked
End Property

2. Code Behind FormPrivate mfCancelClicked As Boolean

Public Property Get CancelClicked() As Boolean
   CancelClicked = mfCancelClicked
End Property
Public Property Let CancelClicked(vf As Boolean)
   mfCancelClicked = vf
End Property

Private Sub cmdCancel_Click()
   Me.CancelClicked = True
End Sub

3. TestPublic Sub EndlessLoop()
   Dim obj As New CMyCancel

   Do While 1
     If obj.CancelClicked Then
       Exit Do
     End If
   Loop

   Set obj = Nothing

End Sub

Copyright By AccessVision