For i As Integer = 100 To 0 Step -1 Dim item As New ListViewItem("البيانات القادمة من قاعدة البيانات") item.SubItems.Add("البيانات القادمة من قاعدة البيانات") item.SubItems.Add("البيانات القادمة من قاعدة البيانات") item.SubItems.Add("البيانات القادمة من قاعدة البيانات") item.SubItems.Add(i.ToString()) ListView1.Items.Add(item) Next