[VB.NET] NotifyIcon mit Transparenz

Hallo,

heute mal ein kleiner Codeschnipsel zum Thema NotifyIcon mit Transparenz.

Ich habe nicht rausgefunden wie man normal ein *.ico mit Transparenz hinbekommen. Zumindest hat es mein Programm nicht unterstützt. Also habe ich mir einen kleinen Code gebastelt der ein bisschen rumtrickst. :-) Damit kann man auch noch sicher andere Sachen basteln.

Funktionieren tut es ganz einfach. In meinem Fall habe ich eine ImageList die diverse Bilder beinhaltet. Daraus suche ich einfach eines raus und lasse es als NotifyIcon setzen.

Die Sub dazu sieht dann so aus. Muss natürlich noch mit dem Programmstart ausgeführt werden.

' sets a new icon from the imagelist. because of the transparens
    Sub createNotifyIcon()
        Try
            Dim img As Bitmap = Me.ImageList1.Images(1)
            Dim hIcon As IntPtr = img.GetHicon()
            Dim icn As Icon = Drawing.Icon.FromHandle(hIcon)
            Me.NotifyIcon1.Icon = icn
            icn = Nothing
            hIcon = Nothing
            img = Nothing
        Catch exc As Exception
            'ups, error... hope the icon is still there...
        End Try
    End Sub