Blinkender taskbalken bei Msn messenger

[MasterSHYBBY]

Hallo leute,

ich wollte mal wissen ob jemand weiss, wie ich einen blinkenden balken, wie er beim Msn messenger kommt, wenn er nicht aktiv ist und eine neue nachricht kommt, programmiert.

Danke für die Hilfe

Gruss
Master SHYBBY

 

[Kriskra]

Bitteschön:

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Dim blinken As Byte

If blinken = 0 Then
a = FlashWindow(Me.hwnd, 0)
blinken = 1
End If

If blinken = 1 Then
a = FlashWindow(Me.hwnd, 1)
blinken = 0
End If
End Sub

Einfach einen Timer auf der Form plazieren und tada

Greets Krisrka