[VB.NET]Programm in der Taskleiste blinken lassen

Private Declare Auto Function FlashWindowEx Lib "user32" _
    (ByRef FWI As FLASHWINFO) As Boolean
    Public Const FLASHW_STOP = 0     'Den Blinkvorgang beenden und zum Originalzustand zurücksetzen
    Public Const FLASHW_CAPTION = &H1 'Die Titelleiste des Fensters blinken lassen
    Public Const FLASHW_TRAY = &H2 'Button in der Taskleiste zum blinken bringen
    Public Const FLASHW_ALL = (FLASHW_CAPTION Or FLASHW_TRAY) 'FLASHW_CAPTION und FLASHW_TRAY werden zusammengeführt
    Private Structure FLASHWINFO 'FLASHWINFO eine Struktur geben
        Dim cbSize As UInt16
        Dim hwnd As IntPtr
        Dim dwFlags As UInt32
        Dim uCount As UInt16
        Dim dwTimeout As UInt32
    End Structure
    ' Mit dieser Funktion kann man ein Fenster blinken lassen um z.B. den Benutzer auf neue aktivität im Programm aufmerksam zu machen.
    Public Sub FlashWindow(ByVal Handle As Integer, ByVal FlashMode As Integer, ByVal FlashCount As Integer, Optional ByVal Speed As Integer = 0)
        Dim FlashInfo As New FLASHWINFO
        FlashInfo.cbSize = System.Runtime.InteropServices.Marshal.SizeOf(FlashInfo)
        FlashInfo.dwFlags = FlashMode
        FlashInfo.dwTimeout = Speed
        FlashInfo.hwnd = Handle
        FlashInfo.uCount = FlashCount
        FlashWindowEx(FlashInfo)
    End Sub