Private thread As Thread
 
    Public Sub InsellisteErstellen()
        StatusBar1.Text = "Inselliste abrufen..."
        Dim insellisteHTML As String = HttpGET("http://osor.de/s1.htm")
        DataTable1.Clear()
        DataGrid1.DataSource = DataTable1
        StatusBar1.Text = "Inseln suchen und eintragen..."
        Dim r As Regex = New Regex("select&pos1=(\d+)&pos2=(\d+)&pos3=(\d+)")
        Dim m As Match = r.Match(insellisteHTML)
        Dim dr As DataRow
        While (m.Success)
            dr = DataTable1.NewRow()
            dr("pos1") = m.Groups(1).ToString()
            dr("pos2") = m.Groups(2).ToString()
            dr("pos3") = m.Groups(3).ToString()
            DataTable1.Rows.Add(dr)
            m = m.NextMatch()
        End While
        DataGrid1.DataSource = DataTable1
        StatusBar1.Text = ""
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        thread = New Thread(AddressOf InsellisteErstellen)
        thread.IsBackground = True
        thread.Start()
    End Sub