Foros del web, para los que viven de bits

Tengo unos problemas a hora de mostrar los elementos del xml en un listbox1 solo consigo que muertes 1 usuario no todos a parte los numeros deveria mostrar en imagen segun os dejo el codigo que tengo hecho.

Public Sub cargar_xml_status()
' Cargar Elementos stats.xml
Dim element = XElement.Load("http://xxx.com/stats.xml")
Dim uptime = element.<status>.<uptime>.Value
Dim players = element.<status>.<oplayers>.Value
Dim gmlist = element.<status>.<gmcount>.Value
Dim alianza = element.<status>.<alliance>.Value
Dim horda = element.<status>.<horde>.Value
Dim avera = element.<status>.<avglat>.Value
Dim plataforma = element.<status>.<platform>.Value
Dim ram = element.<status>.<ram>.Value
Dim cpu = element.<status>.<cpu>.Value
Dim AcceptedConnections = element.<status>.<acceptedconns>.Value
Dim ConnectionPeak = element.<status>.<peakcount>.Value
Dim ultimoUpdate = element.<status>.<lastupdate>.Value

' Listbox Players View
Dim test = element.<sessions>.<plr>.<name>.Value
Dim test1 = element.<sessions>.<plr>.<race>.Value
Dim test2 = element.<sessions>.<plr>.<class>.Value
Dim test3 = element.<sessions>.<plr>.<gender>.Value
Dim test4 = element.<sessions>.<plr>.<level>.Value
Dim test5 = element.<sessions>.<plr>.<pvprank>.Value
ListBox1.Items.Add(test & test1 & test2 & test3 & test4 & test5)

' Tabcontrol1 View Datos
Label17.Text = players
Label18.Text = alianza
Label19.Text = horda
Label20.Text = gmlist
Label21.Text = avera & " ms"
Label22.Text = plataforma
Label23.Text = uptime
Label24.Text = ram & " MB"
Label26.Text = cpu & " %"
Label29.Text = AcceptedConnections
Label30.Text = ConnectionPeak
Label32.Text = ultimoUpdate
End Sub
Resultado es este:



El resultado que quiero es este sobre el listbox que muestre las imagenes y el level y el name a parte otros datos


Dejo las stats para descargar si quereis mirar el code

http://www.wowdkny.com/s/stats.rar