Option Explicit
 
Public WertA As Long
Public WertB As Long
 
Public Event zwischenzeit(ByVal AktWert As Long)
 
Private Sub Class_Initialize()
   ' Klasse initialisieren
   WertA = 0
   WertB = 10
End Sub
 
Public Function tuwas()
   ' Die Methode
   Dim x As Long
   For x = WertA To WertB
      ' Hilfsfunktion aufrufen
      DoPause
      ' Ereignis wird ausgelöst
      RaiseEvent zwischenzeit(x)
   Next x
End Function
 
Private Sub DoPause()
   ' Hilfsfunktion
   Dim Start As Long
 
   Start = Timer   ' Anfangszeit setzen.
   Do While Timer < Start + 1 ' 1 Sek warten
      DoEvents   ' Steuerung an andere Prozesse
   Loop
End Sub

Option Explicit
 
Private WithEvents testclass As Class1
 
Private Sub Form_Load()
   Set testclass = New Class1
End Sub
 
Private Sub Command1_Click()
   With testclass
      .WertA = 1
      .WertB = 5
      .tuwas
   End With
End Sub
 
Private Sub testclass_zwischenzeit(ByVal AktWert As Long)
   Label1.Caption = CStr(AktWert)
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control