Port Scanner

ابتدا کلاس زیر را تعریف می کنیم (کد سراسری
imports system.net.sockets
---------------------------------------------
حال شیئ زیر را ایجاد می کنیم

Timer

---------------------------------------------
شیئ زیر هم ایجاد می کنیم و در رویداد کلیک  آن تابع زیر را می نویسیم
Timer1.Enable=True
---------------------------------------------
اشیاء زیر هم ایجاد می کنیم
TextBox1.Text
TextBox2.Text
LisBox1.Text
---------------------------------------------
حال در رویداد تایمر کد زیر را می نویسیم
Try
            TextBox1.Text = TextBox1.Text + 1
            Dim range As TcpClient = New TcpClient("127.0.0.1", TextBox1.Text)
            If range.Connected = True Then
                ListBox1.Items.Add(TextBox1.Text & "  is Open")
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            End If
        Catch ex As Exception
            ListBox1.Items.Add(TextBox1.Text & "  is Closed")
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        End Try

-------------------------------------------