Oranje werkbalk in de taakbalk

[rowano]

hallo,

hoe kan ik met VB de werkbalk oranje laten kleuren als waarschuwing? (zie voorbeeld)

mvg rowano

 

[The Mighty Atom]

Public Structure FLASHWINFO
        Public cbSize As Int32
        Public hwnd As IntPtr
        Public dwFlags As Int32
        Public uCount As Int32
        Public dwTimeout As Int32
    End Structure

    Private Declare Function FlashWindowEx Lib "user32.dll" (ByRef pfwi As FLASHWINFO) As Int32
    Private Const FLASHW_CAPTION As Int32 = &H1
    Private Const FLASHW_TRAY As Int32 = &H2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim flash As New FLASHWINFO
        flash.cbSize = System.Runtime.InteropServices.Marshal.SizeOf(flash)
        flash.hwnd = Me.Handle
        flash.dwFlags = FLASHW_TRAY 'Flash taskbar button
        flash.uCount = 5 'Number of flashes
        flash.dwTimeout = 1000 ' Speed of flashes in milliseconds (optional)
        FlashWindowEx(flash)

    End Sub