Как разместить индикатор в системном трее? - Visual Basic .NET

Public Class Form1
    Dim ni1 As New NotifyIcon
    Dim ni2 As New NotifyIcon
    Dim ni3 As New NotifyIcon
    Dim n As Integer = 10
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ni1.Icon = Icon.FromHandle(Me.GetIcon(n))
        ni2.Icon = Icon.FromHandle(Me.GetIcon(n))
        ni3.Icon = Icon.FromHandle(Me.GetIcon(n))
        ni1.Visible = True
        ni2.Visible = True
        ni3.Visible = True
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        n = n + 1
        ni1.Icon = Icon.FromHandle(Me.GetIcon(n))
    End Sub
 
    Private Function GetIcon(ByVal n As Integer) As IntPtr
        Dim bmp As Bitmap = New Bitmap(128, 128, Imaging.PixelFormat.Format32bppPArgb)
        Using g As Graphics = Graphics.FromImage(bmp)
            g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit
            g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            g.Clear(Color.White)
            g.DrawString(n, New Font(Me.Font.FontFamily, 80, FontStyle.Italic Or FontStyle.Bold, GraphicsUnit.Pixel), Brushes.Green, -10, 15)
            Return bmp.GetHicon
        End Using
    End Function
End Class