Tijd voordat er text verschijnt.

[HUKED]

Hey,

Ik heb een textbox en een command button.
Nu wil ik als je op command 1 drukt er in de textbox een text verschijnt na ongeveer 10 seconden en dus niet meteen.
Hoe doe ik dat?
Ik werk met VB6.

Bedankt.

 

[That Guy]

1. zet er een timer in, en een label, laat de timer elke seconde 1 van de label aftrekken en op 0 doet-ie iets;
2. 'mijn' slep-functie:

Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Public function Slep(mS as long)
dim t2 as long
t2 = 0
    Do Until t2 = mS
        DoEvents[COLOR="SeaGreen"] 'geen vastloop-zor[/COLOR]
        Sleep (1)
        t2 = t2 + 1
    Loop
end Function

(ps. mischien crappy functie, maar hij doet zijn werk)