[vbnet]

.....

كود :

For Each ip As String In ListBox1.Items
    For Each port As String In TextBox1.Lines
        If TCP_Port_Open(ip, port) Then
            Call thefunction() 'Call thefunction(ip, port)
            Exit For
        End If
    Next
Next