Public Function NewIcon(ByVal ic As Icon, ByVal [Text] As String) As Icon
        Using bmp As Bitmap = ic.ToBitmap
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.DrawString([Text], New Font("Arial", 20, FontStyle.Bold, _
              GraphicsUnit.Point), Brushes.Red, 4, 4)
            Return Icon.FromHandle(bmp.GetHicon)
        End Using
    End Function

 NotifyIcon1.Icon = NewIcon(NotifyIcon1.Icon, "1")

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus