在最小化状态时提供提示
　
如果你的程序在最小化状态时执行任务，你可以通过改变图标的办法来传送信息。

建立一个form 包含一个 timer 和 imagelist.
设置 timer 的 Interval属性到 2000,
在 ImageList 控件中加入三个图标.
最后, 在 Timer 事件中加入下面的代码:

Private Sub Timer1_Timer()
Static ilmage As Integer
ilmage = ilmage + 1
If ilmage > 3 Then ilmage = 1
Me.Icon = ImageList1.ListImages(ilmage).Picture
EndSub