<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<jdownloader>
<package package_ETA="42m:50s" package_linksinprogress="1" _
  package_linkstotal="7" package_loaded="6.38 MB" package_name="n.A" _
  package_percent="1,06" package_size="601.37 MB" package_speed="237.00 KB" _
  package_todo="594.99 MB">
<file file_hoster="rapidshare.com" file_name="schlagmann2.part1.rar" _
file_package="n.A" file_percent="6,52" file_speed="242688" file_status="ETA" & _
"06m:43s @ 237.00 KB/s (1/1)"/>
</package>
</jdownloader>

m_xmlr = New XmlTextReader("C:\Users\Jdown.xml")
'Disable whitespace so that you don't have to read over whitespaces
 
m_xmlr.WhitespaceHandling = WhitespaceHandling.None
'read the xml declaration and advance to family tag
m_xmlr.Read()
 
'read the family tag
 
While Not m_xmlr.EOF
'Go to the name tag
 
m_xmlr.Read()
'if not start element exit while loop
 
If Not m_xmlr.IsStartElement() Then
Exit While
End If
'Get the Gender Attribute Value
 
Dim loadedmin = m_xmlr.GetAttribute("package_loaded")
Dim loadedmax = m_xmlr.GetAttribute("package_todo")
Dim loadedpercent = m_xmlr.GetAttribute("package_percent")
Dim speed = m_xmlr.GetAttribute("package_speed")
Dim linksinprogress = m_xmlr.GetAttribute("package_linksinprogress")
Dim linkstotal = m_xmlr.GetAttribute("package_linkstotal")
 
m_xmlr.Read()
 
 
 
 
'Declare a Bitmap to work with
Dim img As New System.Drawing.Bitmap(160, 43)
'Declare a Graphics object to use as the 'tool' for drawing on the bitmap
Dim screen As Drawing.Graphics = Graphics.FromImage(img)
 
'Create and set properties of a StringFormat object used for DrawString
Dim strformat As New Drawing.StringFormat
strformat.Alignment = StringAlignment.Center
strformat.LineAlignment = StringAlignment.Center
'Put a fill in our rectangle, half way.
'You can change the 0.5 to fill as much of the bar as you like [thinking 
' progress bars etc ;-)]