[ناجي إبراهيم]

السلام عليكم...

الكود الذي أوردته يربط كل سطر في TextBox2 بجميع الأسطر في TextBox3. مثلاً إذا كانت TextBox2 تحتوي على 3 أسطر و TextBox3 تحتوي على 3 أسطر فإن الدالة ht_Open سيتم استدعاؤها 9 مرات (3 × 3).

لكن أعتقد أن لديك بيانات في TextBox2 و تقابلها بيانات في TextBox3 (دائماً عدد الأسطر متساوٍ في الخانتين) و تريد ربط كل قيمة في TextBox2 مع ما يقابلها في TextBox3. إذا كان الحال كذلك فإن الكود يكون كالتالي:

كود :

For i = 0 To TextBox2.Lines.Length - 1
    Dim Port As Integer = CInt(TextBox2.Lines(i))
    Dim hh As String = TextBox3.Lines(i)
    
    'Call the function:
    Dim htt As Boolean = ht_Open(hh, Port)
Next

نرجو الاستفادة و السلام.