Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) _
      Handles Timer1.Tick
        Static Z = 0
        Using bmp As New Bitmap(16, 16, _
          System.Drawing.Imaging.PixelFormat.Format24bppRgb)
           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 Using
    End Sub

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