Imports System.Net.NetworkInformation
 
 
    Dim i As Integer = 0
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        Dim hostadd As System.Net.IPAddress = System.Net.Dns.GetHostEntry( _
          TextBox3.Text).AddressList(0)
        Dim EPhost As New System.Net.IPEndPoint(hostadd, CInt(i))
 
 
        Dim s As New System.Net.Sockets.Socket( _
          System.Net.Sockets.AddressFamily.InterNetwork, _
    System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)
 
        Try
            s.Connect(EPhost)
        Catch
        End Try
        If s.Connected Then
 
            ListView2.Items.Add(CDec(i))
 
 
        End If
 
        If i = 65535 Then
            If ListView2.Items.Count = 0 Then
                ListView2.Items.Add("Kein offener Port.")
                Timer1.Stop()
                Timer1.Enabled = False
                Exit Sub
            End If
        End If
        ProgressBar1.Value = i
        i = i + 1
    End Sub