با سلام خدمت دوستان
توضیحات در مورد خط به خط این کد رو میخواهم
با اجرا شدن برنامه مشکل ندارم Public Class Frm_TCP_Conn
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim activeConnection() As System.Net.NetworkInformation.TcpConnectionInforma tion = System.Net.NetworkInformation.IPGlobalProperties.G etIPGlobalProperties.GetActiveTcpConnections
Dim portList As New ArrayList
For i = 0 To activeConnection.Length - 1
Lst_TCP_Conn.Items.Add(activeConnection(i).LocalEn dPoint.Address.ToString & ":" & activeConnection(i).LocalEndPoint.Port & " -> " & activeConnection(i).RemoteEndPoint.Address.ToStrin g & ":" & activeConnection(i).RemoteEndPoint.Port)
Next
End Sub
End Class