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))...