[محمد ايمن]

(07-03-20, 03:42 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته

وجدت الجواب على موقع msdn هنا : social.msdn.microsoft

تفضل جرب الكود التالي  

كود :

 Private _random As Random = New Random()

   Public Function GetRandomIp() As String
       Return String.Format("{0}.{1}.{2}.{3}", _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255), _random.Next(0, 255))
   End Function

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

       Dim ips = New List(Of String)()

       For i As Integer = 0 To 10 - 1
           ips.Add(GetRandomIp())
       Next

       For Each ip In ips
           ListBox1.Items.Add(ip & ":" & TextBox1.Text)
       Next

   End Sub

شكران هو ده المطلوب بس هو انت متعرفش ازي احط الكود ده فا التايمر