<System.Runtime.InteropServices.DllImportAttribute("user32.dll")> _
    Private Shared Function DestroyIcon(ByVal handle As IntPtr) As Boolean
    End Function
 
 
 
    Dim Notifyicon1 As New NotifyIcon
    Dim iptr As System.IntPtr
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) _
     Handles Timer1.Tick
        Static Z As Integer = 0
 
        Using bmp As New Bitmap(16, 16, _
          System.Drawing.Imaging.PixelFormat.Format24bppRgb), _
            BH As New SolidBrush(Color.LightGray),
            BF As New SolidBrush(Color.Black),
            g As Graphics = Graphics.FromImage(bmp)
 
            g.FillRectangle(BH, 0, 0, 15, 15)
            g.DrawString(CStr(Rnd() * 10), Me.Font, BF, 0, 0)
 
            If Notifyicon1.Icon IsNot Nothing Then
                Notifyicon1.Icon.Dispose()
            End If
 
            If Not iptr = IntPtr.Zero Then
                DestroyIcon(iptr)
            End If
 
            iptr = bmp.GetHicon()
            Notifyicon1.Icon = System.Drawing.Icon.FromHandle(iptr)
 
            Z += 1
        End Using
    End Sub