怎么让一个程序活动状态只在任务栏上闪烁，而正在使用的别的程序不受影响

如何让一个程序活动状态只在任务栏上闪烁，而正在使用的别的程序不受影响！
如何让一个程序活动状态只在任务栏上闪烁，而正在使用的别的程序不受影响！
以前的XP就是这样的，后来升过级后的XP就不行了！
在线急等了！

------解决方案--------------------
声明：Declare Function FlashWindow Lib "user32 " (ByVal hwnd As Long, ByVal bInvert As Long) As Long
在form中加一个Timer，设好Interval属性
在Timer1_Timer中写道：
Private Sub Timer1_Timer()
Call FlashWindow(Me.hwnd, True)
End Sub
------解决方案--------------------
做一个控件吧，以下是源程序保存为FlashTitle.ctl


VERSION 5.00
Begin VB.UserControl FlashTitle
BackStyle = 0 '透明
ClientHeight = 510
ClientLeft = 0
ClientTop = 0
ClientWidth = 1095
InvisibleAtRuntime= -1 'True
MaskPicture = "FlashTitle.ctx ":0000
Picture = "FlashTitle.ctx ":0CA2
ScaleHeight = 510
ScaleWidth = 1095
ToolboxBitmap = "FlashTitle.ctx ":1944
Begin VB.Timer Timer1
Enabled = 0 'False
Left = 570
Top = 30
End
End
Attribute VB_Name = "FlashTitle "
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private Declare Function FlashWindow Lib "user32 " (ByVal hWnd As Long, ByVal bInvert As Long) As Long
'闪烁显示指定窗口。
'这意味着窗口的标题和说明文字会发生变化，
'似乎从活动切换到非活动状态、或反向切换。
'通常对不活动的窗口应用这个函数，
'引起用户的注意
Dim chWnd As Long

Public Sub ShowAbout()
Attribute ShowAbout.VB_Description = "显示关于对话框。 "
Attribute ShowAbout.VB_UserMemId = -552
FrmAbout.Show vbModal
Unload FrmAbout
Set FrmAbout = Nothing
End Sub
Private Sub Timer1_Timer()
FlashWindow chWnd, True
End Sub

Private Sub UserControl_Resize()
UserControl.Width = 500
UserControl.Height = 450
End Sub
'注意！不要删除或修改下列被注释的行！
'MappingInfo=Timer1,Timer1,-1,Interval
Public Property Get Interval() As Long
Attribute Interval.VB_Description = "返回/设置闪烁 事件间隔的毫秒数。 "
Interval = Timer1.Interval
End Property

Public Property Let Interval(ByVal New_Interval As Long)
Timer1.Interval() = New_Interval
PropertyChanged "Interval "
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0
Public Function Flashing(ByVal hWnd As Long, ByVal OnOff As Boolean) As Boolean
Attribute Flashing.VB_Description = "窗口闪烁显示开关。 "
chWnd = hWnd
If OnOff = False Then
Timer1.Enabled = False
FlashWindow chWnd, False
Else
Timer1.Enabled = True
Flashing = True
End If
End Function

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Timer1.Interval = PropBag.ReadProperty( "Interval ", 0)
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty( "Interval ", Timer1.Interval, 0)
End Sub