[silverlight]

هل هذا ما تريده ؟

PHP كود :

       Dim first As String = "202.86.16.0"
        Dim strings As String() = first.Split("."c)
        Dim k As Integer = 31
        Dim i As Integer = strings(2)
        Dim result As List(Of String) = New List(Of String)()
        For m As Integer = i To k
            Dim s As String = strings(0) + "." + strings(1) + "." + m.ToString + "." + "255"
            result.Add(s)
        Next

        ' اعرض البيانات في ليست بوكس
        For Each s As String In result
            ListBox1.Items.Add(s)
        Next