|
Private Sub Timer1_Timer()
Static iImage As Integer iImage = iImage + 1 If iImage > 3 Then iImage = 1 Me.Icon = ImageList1.ListImages(iImage).Picture End Sub Suppose you want a form to perform a task while minimized, then notify the user without a message box and while remaining minimized. You can send a message via a changing icon on the minimized form in the taskbar. Create a form containing a timer and an image list. Set the timer's Interval property to 2000, then use the ImageList control's Custom property to add three images. Finally, add this code to the Timer event: |