[Fareed2]

هفترض ان عندك 3 اعمده

   Public Sub firendview(ByVal listview As ListView)
       listview.View = View.Tile
       listview.RightToLeftLayout = True

       Dim con As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-SNS2QF4;Initial Catalog=adduser;Integrated Security=True")

    Dim dt As New DataTable
    Dim data As New SqlClient.SqlDataAdapter("select * from idfriends where (iduser=" & Form1.Label6.Text & ")", con)
    data.Fill(dt)

    For i = 0 To dt.Rows.Count - 1
        Dim itm As New ListviewItem(dt.Rows(i).Item("iduser"))
        Dim st As String = dt.Rows(i).Item("st"))
        itm.SubItems.Add(If(st="online", st, ""))
        itm.SubItems.Add(If(st="offline", "", st)
        listview.Items.Add(itm)
    Next
End Sub

---

لكن ليه الشرط iduser؟