Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs _
  As System.EventArgs) Handles Command1.Click
        Dim liste() = {"199.47.217.74"}
        Dim pdwSize As Integer
        Dim iRetVal As Integer
        Dim i As Integer
        Dim TcpTableRow As MIB_TCPROW
        Dim pStructPointer As IntPtr = IntPtr.Zero
        Dim iNumberOfStructures As Integer
        ListView1.Items.Clear()
        iRetVal = GetTcpTable(pStructPointer, pdwSize, 0)
        pStructPointer = Marshal.AllocHGlobal(pdwSize)
        iRetVal = GetTcpTable(pStructPointer, pdwSize, 0)
        iNumberOfStructures = Math.Ceiling((pdwSize - 4) / Marshal.SizeOf( _
          GetType(MIB_TCPROW)))
        For i = 0 To iNumberOfStructures - 1
            Dim pStructPointerTemp As IntPtr = New IntPtr( _
              pStructPointer.ToInt32() + 4 + (i * Marshal.SizeOf(GetType( _
              MIB_TCPROW))))
            TcpTableRow = New MIB_TCPROW()
            With TcpTableRow
                .dwLocalAddr = 0
                .dwState = 0
                .dwLocalPort = 0
                .dwRemoteAddr = 0
                .dwRemotePort = 0
            End With
            'Marshal.PtrToStructure(pStructPointerTemp, TcpTableRow)
            TcpTableRow = CType(Marshal.PtrToStructure(pStructPointerTemp, _
              GetType(MIB_TCPROW)), MIB_TCPROW)
            ' Process each MIB_TCPROW here
            'If Not ((Check1.CheckState = 
            ' System.Windows.Forms.CheckState.Checked) And (GetIpFromLong( 
            ' TcpTableRow.dwLocalAddr) = "0.0.0.0" Or GetIpFromLong( 
            ' TcpTableRow.dwLocalAddr) = "127.0.0.1")) Then
            If Not GetIpFromLong(TcpTableRow.dwRemoteAddr) = "127.0.0.1" And _
              Not GetIpFromLong(TcpTableRow.dwRemoteAddr) = "0.0.0.0" Then
                'Add the data to the ListView control
                With TcpTableRow
                    Dim itemAdd As ListViewItem
                    itemAdd = ListView1.Items.Add(GetIpFromLong(.dwLocalAddr))
                    itemAdd.SubItems.Add(CStr(GetTcpPortNumber(.dwLocalPort)))
                    itemAdd.SubItems.Add(GetIpFromLong(.dwRemoteAddr))
                    itemAdd.SubItems.Add(CStr(GetTcpPortNumber(.dwRemotePort)))
                    itemAdd.SubItems.Add(GetState(.dwState))
                End With
                '-- Kill Connection- here!!!!!!!!!!!!-------
                If CStr(GetTcpPortNumber(TcpTableRow.dwRemotePort)) = 80 Then
                    MsgBox(CStr(GetTcpPortNumber(TcpTableRow.dwRemotePort)))
                    TcpTableRow.dwState = MIB_TCP_STATE_DELETE_TCB
                    SetTcpEntry(TcpTableRow)
                End If
            End If
        Next
    End Sub