Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized
        ListBox1.Dock = DockStyle.Fill
        ListBox1.HorizontalScrollbar = True
        Dim wb As New Net.WebClient
        Dim html As String = wb.DownloadString( _
          "http://www.orange-gaming.eu/index.php?Option=com_content&view=artic" & _
          "e&id=12" & "Itemid=28")
        ListBox1.Items.AddRange(Split(html, vbCrLf))
        For i As Int32 = 0 To ListBox1.Items.Count - 1
            ListBox1.Items.Item(i) = i.ToString.PadLeft(3, "0"c) & "  " & _
              ListBox1.Items.Item(i).ToString
        Next
    End Sub
End Class