[kslawy]

اذا كانت الآبيهات تبدأ بـ 192.168.1.1 وتنتهي بـ 192.168.1.1000 ، يمكننا ملأ المصوفة بالكود التالي في حدث الـ Form_Load وهو سريع جداً :

كود :

Dim IPs As New List(Of String)


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        For i As Integer = 1 To 1000
            Dim IP As String = "192.168.1."
            IPs.Add(String.Format("{0}{1}", IP, i.ToString))
            Application.DoEvents()
        Next


    End Sub

****
***
**
*