[MSDOS]

جرب هذا التعديل

كود :

ListView1.View = View.Details
ListView1.FullRowSelect = True
Me.CenterToScreen()

ListView1.Columns.Add("Name", 100)
ListView1.Columns.Add("country", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("status", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("internet", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("sms", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pic", 100, HorizontalAlignment.Center)

For Each row As DataRow In ds.Tables("Table1").Rows
    Dim itm As New ListViewItem
    itm.Text = row.Item("Name")
    itm.SubItems.Add(row.Item("country"))
    itm.SubItems.Add(row.Item("status"))
    itm.SubItems.Add(row.Item("internet"))
    itm.SubItems.Add(row.Item("sms"))
    itm.SubItems.Add(row.Item("pic"))
    ListView1.Items.Add(itm)
Next