VB 6.0_Sleep benzeri Bekleme fonksiyonu

[NBATMAN]

Merhaba,

aşağıdaki fonksiyon işinize yarar mı?


Public Sub Pause(BeklemeZamani As Currency)

Dim BASLA As Currency
BASLA = Timer
Do While Timer < (BASLA + BeklemeZamani)
DoEvents
Loop
End Sub




Kullanımı:

Private Sub Text1_Change()
Text3.Text = Replace(Text1.Text, Chr$(13), Chr$(32))
Pause (0.5)
List1.AddItem Text3.Text
End Sub