Отобразить в трее значение переменных

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        NotifyIcon1.Visible = True
        For i As Integer = 0 To 15
            NotifyIcon1.Icon = NotyfiIconDigImage(i)
 
            Threading.Thread.Sleep(1000)
        Next
        NotifyIcon1.Visible = False
    End Sub
    Function NotyfiIconDigImage(ByVal input As Integer) As Icon
        Dim icn As New Bitmap(16, 16)
        Dim outputicon As Icon
        Dim gr As Graphics = Graphics.FromImage(icn)
        gr.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        Dim fnt As New Font("Arial", 9, FontStyle.Regular, GraphicsUnit.Pixel)
        gr.FillRectangle(Brushes.Aqua, New Rectangle(0, 0, icn.Width, icn.Height))
        gr.DrawString(input.ToString, fnt, New SolidBrush(System.Drawing.Color.Black), 1, 3)
        outputicon = Icon.FromHandle(icn.GetHicon())
        gr.Dispose()
        icn.Dispose()
        Return outputicon
    End Function