---

hvordan skal jeg få en textbox til å blinke mellom f.eks rødt og hvitt bare
fem ganger. Den skal ikke bline hele tiden

---

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds
As Long)

private sub Form_load()
for I = 1 to 5
If text1.backColor = vbWhite then
text1.backColor =vbRed
Else
text1.backColor =vbWhite
end if
sleep 1000
end sub

Håber du kan bruge denne kode til noget.

mvh. Martin
"HALLSTEIN MYRSTAD" <hamyrsta@c2i.net> wrote in message
news:U65e8.677$V07.9877@juliett.dax.net...
> hvordan skal jeg få en textbox til å blinke mellom f.eks rødt og hvitt
bare
> fem ganger. Den skal ikke bline hele tiden
>
>

---

"Martin" <martin.molle@get2net.dk> skrev i en meddelelse
news:X7ce8.165$9c.3796@news.get2net.dk...
> Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal
dwMilliseconds
> As Long)
>
> private sub Form_load()
> for I = 1 to 5
> If text1.backColor = vbWhite then
> text1.backColor =vbRed
> Else
> text1.backColor =vbWhite
> end if
> sleep 1000
> end sub
>
> Håber du kan bruge denne kode til noget.

Der mangler da lige en NEXT mellem Sleep 1000 og End sub.


--


Venlig hilsen / Best regards

Henrik

<><><><> Fjern NOSPAM ved direkte svar <><><><>