Public Class Form1
    Dim NotifyIcon1 As New NotifyIcon
    Dim bmp As New Bitmap(16, 16, _
      System.Drawing.Imaging.PixelFormat.Format24bppRgb)
 
    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
        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)
        Dim iptr As System.IntPtr = bmp.GetHicon()
        NotifyIcon1.Icon = System.Drawing.Icon.FromHandle(iptr)
        DestroyIcon(iptr)
        g.Dispose()
        BH.Dispose()
        BF.Dispose()
    End Sub
 
    <System.Runtime.InteropServices.DllImportAttribute("user32.dll")> _
    Private Shared Function DestroyIcon(ByVal handle As IntPtr) As Boolean
    End Function
 
End Class

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