[الماجيك مسعد]

(25-12-20, 09:41 PM)BaLaDy كتب :

كود :

For i = 0 To (Me.ListBox1.Items.Count - 1) \ 50
   Dim ids1 = String.Join(",", (From item As Object In Me.ListBox1.Items Skip i * 50 Take 50))
   MsgBox(ids1)
Next

ممتاز تسلم ايدك