Class

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub GETBUT_Click(sender As Object, e As EventArgs) Handles GETBUT.Click
        LISTV.Items.Clear()
        Dim xkiller = (New Net.WebClient).DownloadString("https://free-proxy-list.net/")
        Dim getProxies = "<td>([^>]*)</td><td>([^>]*)</td><td>([^>]*)</td><td class='hm'>([^>]*)</td><td>([^>]*)</td><td class='hm'>([^>]*)</td><td class='hx'>([^>]*)</td><td class='hm'>([^>]*)</td>"
        '
        For Each item As Match In (New Regex(getProxies).Matches(xkiller))
            LISTV.Items.Add(item.Groups(1).ToString).SubItems.AddRange({item.Groups(2).ToString, item.Groups(4).ToString, item.Groups(5).ToString, item.Groups(6).ToString, item.Groups(7).ToString, item.Groups(8).ToString})
        Next
    End Sub
End Class