Dim m_StopProcess As Boolean

Private Sub btnRun_Click()
   Dim i As Long
   Dim j As Long
   Dim s As String
   m_StopProcess = False
   j =  1 
   For i =  1  To  30000 
      StatusBar1.Panels( 1 ) = "item " & i
      s = s & GetRandomString
      StatusBar1.Panels( 2 ) = Mid(s,  1 ,  50 )
      j = j +  1 
      If j >=  100  Then
         DoEvents
         j =  1 
      End If
      If m_StopProcess Then Exit For
   Next
End Sub

Private Sub btnStop_Click()
   m_StopProcess = True
End Sub

Private Function GetRandomString() As String
   Dim i As Long
   Dim n As Long
   Dim s As String
   n = Rnd *  9  +  1 
   For i =  1  To Rnd
      s = s & Chr(Rnd *  48  +  49 )
   Next
   GetRandomString = s
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   m_StopProcess = True
End Sub