Imports System.Text
Public Class Form1
    Dim Noip_host As New StringBuilder(), Attemp As New StringBuilder()
    Private Sub PeButtonAlt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeButtonAlt1.Click
        If t1.Text = "" Or t2.Text = "" Then
            MsgBox("Url not Found", MsgBoxStyle.Information)
        Else
            Noip_host.Append(t1.Text) : Attemp.Append(t2.Text)
            Dim st_thread As New Threading.Thread(AddressOf st) : st_thread.IsBackground = True : st_thread.Start()
        End If
    End Sub
    Sub st()
        For i = 0 To 49
            Dim doit_thread As New Threading.Thread(AddressOf doit) : doit_thread.IsBackground = True : doit_thread.Start()
        Next
    End Sub
    Sub doit()
        Try
            Shell("ping -t " + (t1.Text) + " -l " + (t2.Text))
        Catch ex As Exception : End Try
    End Sub
    Private Sub PeButtonAlt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeButtonAlt2.Click
        Me.Close()
    End Sub
    Dim GeoIP As New Getcountry(Application.StartupPath & "\GeoIP.dat")
    Dim x As Integer = 0
    Private Sub PeButtonAlt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeButtonAlt3.Click
        Try
            Dim item As New ListViewItem
            item.Text = Textbox1.Text
            item.SubItems.Add(GeoIP.LookupCountryName(Textbox1.Text))
            item.SubItems.Add(GeoIP.LookupCountryCode(Textbox1.Text))
            Dim img As Image = Image.FromFile(Application.StartupPath & "\flag\" & GeoIP.LookupCountryCode(Textbox1.Text) & ".png")
            IM.Images.Add(img)
            item.ImageIndex = x
            x = x + 1
            LV1.Items.Add(item)
        Catch ex As Exception : MsgBox(ex.InnerException) : End Try
    End Sub
End Class