Конвертировать Image в Icon для NotifyIcon

Public Class Form1
    Dim MyNI As New NotifyIcon
    Dim n As Integer = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyNI.Icon = Icon.FromHandle(Me.GetIcon(n))
        MyNI.Visible = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        n = n + 1
        MyNI.Icon = Icon.FromHandle(Me.GetIcon(n))
    End Sub
 
    ''' <summary>
    ''' На основе заданной строки возвращает дескриптор значка
    ''' </summary>
    ''' <param name="n">Текст, который будем отрисовывать</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function GetIcon(ByVal n As Integer) As IntPtr
        Dim g As Graphics
        Dim b As Bitmap = New Bitmap(128, 128, Imaging.PixelFormat.Format32bppPArgb)
        g = Graphics.FromImage(b)
        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        g.Clear(Color.FromArgb(30, 0, 0, 128)) ' прозрачный голубой. Но строчку можно закомментировать и будет просто прозрачный фон
        g.DrawString(n, New Font(Me.Font.FontFamily, 80, FontStyle.Italic Or FontStyle.Bold, GraphicsUnit.Pixel), Brushes.Red, 20, 0)
        g.Dispose()
        Return b.GetHicon ' возвращаем дескриптор иконки
    End Function
 
End Class