Public Class Form1
    Dim NotifyIcon1 As New NotifyIcon
    Dim bmp As New Bitmap(16, 16, _
      System.Drawing.Imaging.PixelFormat.Format24bppRgb)
    Dim iptr As System.IntPtr
    Private Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles _
      Me.Shown
        NotifyIcon1.Visible = True
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) _
      Handles Timer1.Tick
        Static Z = 0
        Dim BH As New SolidBrush(Color.LightGray)
        Dim BF As New SolidBrush(Color.Black)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.FillRectangle(BH, 0, 0, 15, 15)
        g.DrawString(Rnd() * 10, Me.Font, BF, 0, 0)
        iptr = bmp.GetHicon()
        NotifyIcon1.Icon = System.Drawing.Icon.FromHandle(iptr)
        g.Dispose()
        BH.Dispose()
        BF.Dispose()
        Z += 1
    End Sub
End Class

--
while (!asleep()) sheep++;