Создание иконки

[PAVEL_USER]

Здравствуйте!

Пытаюсь сделать так, чтобы NotifyIcon.Icon можно было присвоить иконку сделанную следующим образом:

Код: Выделить всё


        Dim bm As New Bitmap(32, 32)
        Dim gr As Graphics = Graphics.FromImage(bm)
        gr.DrawString("1", New Font("ARIAL", 12), Brushes.Black, 0, 0)
        bm.Save("icon.ico", System.Drawing.Imaging.ImageFormat.Icon)


Но использовать icon.ico в качестве иконки не удается.

Смысл в том, чтобы было можно изменять иконку во время выполнения, и на ней отображалась нужная мне информация.
Как можно это реализовать?

[Ramzes]

PAVEL_USER

Public Function GetHicon() As IntPtr
Member of System.Drawing.Bitmap

Summary:
Returns the handle to an icon.

Return Values:
A Windows handle to an icon with the same image as the System.Drawing.Bitmap.

Exceptions:
System.Exception: The operation failed.

Attributes:
<System.ComponentModel.EditorBrowsableAttribute(2)>

Public Shared Function FromHandle(ByVal handle As IntPtr) As System.Drawing.Icon
Member of System.Drawing.Icon

Summary:
Creates a GDI+ System.Drawing.Icon from the specified Windows handle to an icon (HICON).

Parameters:
handle: A Windows handle to an icon.

Return Values:
The System.Drawing.Icon this method creates.

[PAVEL_USER]

Спасибо!