Blinking Tray Icon

I am making a program, in which I need a blinking tray icon.

I know how to place the tray Icon, I just dont know how to blink it,

sure I could keep Adding it and Removing it in a continuous loop, but I think that would steal quite alot of resources.

If somebody could help me, I would greatly appreciate it.


Thank You in advance

[Dim]

Please refer to:
http://forums.vb-world.net/showthrea...threadid=22924
It just basicly sets a timer to have an icon for a sec and then take it away and does it over and over.

Gl,
D!m

is there any way I can do this without a timer?

[Dim]

I'm not sure...you can make it blink REALY fast by refreshing it constantly..or setting the icon = "" then icon = "file.ico"
But using a timer would be best.

You might want to ask the API experts for something in that area that would do that.

Gl,
D!m

Of course there is a way...no Timer required.

This is a way using the Do...Loop event.

Function timeout(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Function

'Timeout is optional..it is used to control speed..without it, it blinks very fast

'code
Form1.Icon = icon1.Picture 
Do: DoEvents
icon1.Visible = Not icon1.Visible
timeout 0.1
Loop

Hope that helps.

[Rodik]

He said

sure I could keep Adding it and Removing it in a continuous loop, but I think that would steal quite alot of resources.

so putting a Timer would just end up using about 3-4% of the CPU.

You could manage it by loading an animated gif into the tray, although that'd be very advanced code,

may I suggest instead of blinking, to put an icon with easy noticeable colors and/or fluorescent colors instead.

Oh yeah, and if you want to stop the blinking...

Do
DoEvents
Loop

thanks to everybody, but so far no luck,
I used fox's demo to load the trayicon, and I used a timer to keep switching between icons, but the icon kept deleting itself before loading the other one, so the taskbar kept flickering....
very NOT desirable....