.NET Get TCP Connections

'Written By Sixem // Gets Active TCP Connections
Public Shared Function Get_Active_TCP_Connections(ByVal EnableFlags As Integer)
        Try
            Dim builder As New System.Text.StringBuilder
            Dim ipProps As System.Net.NetworkInformation.IPGlobalProperties = System.Net.NetworkInformation.IPGlobalProperties.GetIPGlobalProperties()
            FrmMain.ConnectionsTCP.Items.Clear()
            For Each connection As System.Net.NetworkInformation.TcpConnectionInformation In ipProps.GetActiveTcpConnections
                If connection.RemoteEndPoint.ToString.StartsWith("127.") = False Then
                    If connection.RemoteEndPoint.ToString.StartsWith(ChrW(91)) = False Then
                        Dim lvi As ListViewItem = New ListViewItem()
                        lvi.Text = connection.RemoteEndPoint.ToString
                        lvi.SubItems.Add(connection.LocalEndPoint.ToString())
                        lvi.SubItems.Add(connection.State.ToString())
                        lvi.SubItems.Add("TCP")
                        FrmMain.ConnectionsTCP.Items.Add(lvi)
                        Date_Last = Date.Now
                    End If
                End If
            Next
            Try
                Dim plNF As New ProcessStartInfo("cmd", "/c netstat -on")
                plNF.CreateNoWindow = True
                plNF.UseShellExecute = False
                plNF.RedirectStandardOutput = True
                Dim slNet As Process = Process.Start(plNF)
                Dim oUT As String = slNet.StandardOutput.ReadToEnd()
                slNet.WaitForExit()
                Dim cLi As String = "    "
                While cLi.Length > 1
                    oUT = oUT.Replace(cLi, ChrW(35))
                    cLi = cLi.Remove(cLi.Length - 1, 1)
                End While
                oUT = oUT.Remove(0, oUT.LastIndexOf("PID") + 4)
                Dim sVL As String() = oUT.Split(Environment.NewLine.ToCharArray())
                For Each MTv As String In sVL
                    If MTv.Contains(ChrW(35)) Then
                        Swarm += 1
                        Dim mProc As Process
                        Dim sIN As String = Nothing
                        Dim xDT As String = MTv.Remove(0, 1)
                        Dim cDE As String() = xDT.Split(Convert.ToChar(ChrW(35)))
                        Try
                            mProc = Process.GetProcessById(Convert.ToInt32(cDE(4).Replace(" ", Nothing)))
                            sIN = mProc.ProcessName
                        Catch ex As Exception
                            sIN = ChrW(36)
                        End Try
                        If sIN.Contains(ChrW(36)) = False Then
                            Dim lvi As ListViewItem = New ListViewItem()
                            lvi.Text = cDE(2)
                            lvi.SubItems.Add(cDE(1))
                            lvi.SubItems.Add(sIN & ".exe")
                            lvi.SubItems.Add("TCP")
                            FrmMain.ConnectionsTCP.Items.Add(lvi)
                        End If
                    End If
                Next
                FrmMain.Connections_Status.Text = String.Format("{0} Active Connection(s), {1} In Swarm.", FrmMain.ConnectionsTCP.Items.Count, FrmMain.ConnectionsTCP.Items.Count + Swarm)
            Catch ex As Exception

            End Try
            If EnableFlags = 1 Then
                Dim i As Integer = 0
                Do Until i = FrmMain.ConnectionsTCP.Items.Count
                    Dim country As String = LookUpDetails(FrmMain.ConnectionsTCP.Items.Item(i).Text.Split(Convert.ToChar(":")).GetValue(0)) & ".png"
                    FrmMain.ConnectionsTCP.Items.Item(i).ImageKey = country
                    i += 1
                Loop
            End If
            FrmMain.Connections_Status.Text = String.Format("{0} Active Connection(s), {1} In Swarm.", FrmMain.ConnectionsTCP.Items.Count, FrmMain.ConnectionsTCP.Items.Count + Swarm)
            Swarm = 0
        Catch ex As Exception
        End Try
        Return Nothing
    End Function