Private Sub loadthenews()
 
Dim readXML As New XmlTextReader(Application.StartupPath & "\heise-atom.xml") 
        While readXML.Read()
            If readXML.NodeType = XmlNodeType.Text Then
                'str += "   " & readXML.Value
                xmlst += "  " & readXML.Value
            End If
        End While
End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
 
Try
 
'XML-Datei aus dem Web holen und im bin Ordner speichern
Dim wc As New System.Net.WebClient
 wc.DownloadFile("http://www.heise.de/newsticker/heise-atom.xml", _
   Application.StartupPath & "\heise-atom.xml")
wc.Dispose()
 
Catch ex As Exception
'Fehlerinformation ausgeben
MessageBox.Show(ex.ToString, "Info!", MessageBoxButtons.OK,     _
  MessageBoxIcon.Error)
 
End Try
 
        g = Me.CreateGraphics()  'get the graphics object of the form
        widthX = Me.Width              ' x co- ordinate or width
 
        Me.loadthenews()
 
        Timer1.Interval = 80
        Timer1.Start()
        fo = New Font("Times New Roman", 14, FontStyle.Bold, GraphicsUnit.Point)
 
        strwidth = g.MeasureString(xmlst, fo)
        douX = strwidth.Width
 
End Sub

VB@rchiv its the Best