visible-cues
|
|
Visible Cues From A Minimized Form
Visible Cues From A Minimized Form
You can change the icon of the minimized form on the taskbar to send
messages to the user.
Preparations
Add 1 ImageList to your form and add 3 Icons (files with ICO extension)
to it.
Add 1 Timer Control. Set the Timer Interval property to 2000. You can
increase/decrease this number to change the Icons swapping rate.
Form Code
Private Sub Timer1_Timer()
Static ImageNum As Integer
ImageNum = ImageNum + 1
If ImageNum > 3 Then ImageNum = 1
Me.Icon = ImageList1.ListImages(ImageNum).Picture
End Sub
| |
|
|
|