怎么实现QQ来消息时,聊天对话框又最小化在任务栏时闪动的效果

如何实现QQ来消息时,聊天对话框又最小化在任务栏时闪动的效果?
RT

[解决办法]
Declare Function FlashWindow Lib "user32 " (ByVal hwnd As Long, _
ByVal bInvert As Long) As Long

调用:
call FlashWindow(Me.hwnd, 1)
[解决办法]
用托盘+时间控件+状态标记....
[解决办法]
一楼正解.我也是用这种方法实现的