Private z As Integer
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim b As New Bitmap(18, 18)
        Dim g As Graphics = Graphics.FromImage(b)
        Dim ip As IntPtr
        Dim ico As Icon
        g.DrawLine(Pens.Black, 0, 0, 18, 18)
        ip = b.GetHicon
        ico = System.Drawing.Icon.FromHandle(ip)
        e.Graphics.DrawIcon(ico, 1, 1)
 
        b.Dispose()
        g.Dispose()
        Icon.Dispose()
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        z += 1
        TextBox1.Text = z
        PictureBox1.Refresh()
    End Sub