Public Sub DrawLcd()
 
        Downloader.dwlByLink( _
          "http://localhost:10025/get/downloads/currentlist", _
          "C:\Users\Jdown.xml")
        Dim img As New System.Drawing.Bitmap(160, 43)
 
        Dim screen As Drawing.Graphics = Graphics.FromImage(img)
        Dim strformat As New Drawing.StringFormat
        strformat.Alignment = StringAlignment.Center
        strformat.LineAlignment = StringAlignment.Center
 
        Dim m_xmlr As XmlTextReader
 
 
        m_xmlr = New XmlTextReader("C:\Users\Jdown.xml")
        m_xmlr.WhitespaceHandling = WhitespaceHandling.None
        m_xmlr.Read()
        While Not m_xmlr.EOF
            If m_xmlr.IsStartElement() AndAlso m_xmlr.Name = "package" Then
                screen.DrawString("DLSpeed:" & m_xmlr.GetAttribute( _
                  "package_speed") & "", New Font("Arial", 10, _
                  FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New _
                  RectangleF(0, 10, 170, 10))
                screen.DrawRectangle(Pens.White, New Rectangle(2, 25, 100, 5))
                screen.FillRectangle(Brushes.White, New Rectangle(2, 25, (0 + _
                  m_xmlr.GetAttribute("package_percent")), 5))
                screen.DrawString("" & m_xmlr.GetAttribute("package_percent") & _
                "%", New Font("Arial", 10, FontStyle.Regular, _
                GraphicsUnit.Pixel), Brushes.White, New RectangleF(104, 21, _
                170, 10))
                screen.DrawString("DL Finished: " & m_xmlr.GetAttribute( _
                "package_ETA") & "", New Font("Arial", 10, FontStyle.Regular, _
                GraphicsUnit.Pixel), Brushes.White, New RectangleF(0, 30, 170, _
                10))
                screen.DrawString("" & m_xmlr.GetAttribute( _
                "package_linksinprogress") & " / " & m_xmlr.GetAttribute( _
                "package_linkstotal") & "", New Font("Arial", 10, _
                FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New _
                RectangleF(110, 30, 170, 10))
 
            End If
            If m_xmlr.IsStartElement() AndAlso m_xmlr.Name = "file" Then
                screen.DrawString(m_xmlr.GetAttribute("file_name"), New Font( _
                  "Arial", 10, FontStyle.Regular, GraphicsUnit.Pixel), _
                  Brushes.White, New RectangleF(0, 0, 170, 10))
 
            End If
            m_xmlr.Read()
 
        End While
        lcd.DrawLCD(img)
        lcd.UpdateLCD()
        m_xmlr.Close()
 
    End Sub