.NET [VB.Net] Port Scanner Source (Console)

Code
Module Module1



    Sub Main()

        Dim tcp As New TcpClient

        Console.WriteLine("Enter Host Name")

        Dim txtHost = Console.ReadLine()

        Console.WriteLine("Enter Start Port")

        Dim txtPortStart = Console.ReadLine()

        Console.WriteLine("Enter Stop Port")

        Dim txtPortStop = Console.ReadLine()



        Dim startPort As Integer = Convert.ToInt32(txtPortStart)

        Dim stopPort As Integer = Convert.ToInt32(txtPortStop)



        Dim port As Integer



        For port = startPort To stopPort

            Try

                tcp.Connect(txtHost, port)



                If (tcp.Connected) Then

                    Console.WriteLine(port & " : Port Open")

                End If



            Catch e As Exception

                Console.WriteLine(port & " : Port Closed")

            End Try

        Next

        tcp.Close()

        Console.WriteLine("Scan Finished")

        Console.ReadKey()

    End Sub



End Module