Sub WasteTime(Finish As Long)
Dim NowTick As Long
Dim EndTick As Long
EndTick = GetTickCount + (Finish * 1000)
Do
NowTick = GetTickCount
DoEvents
Loop Until NowTick >= EndTick
End Sub
mesela şu kod içine ilk işlemin bittiği haberini verip döngüden çıkıp işleme devam etmesini sağlamak gibi