[Anas Mahmoud]

اضفت ImageList1 وقمت باسنادها للخاصية LargeImageList و SmallImageList في ال listview الاثنان

ثم عدلت حلقة التكرار في الكود الى 

كود :

  Do While da.Read = True
            Dim status As String = da("status")
            Dim friendid As Integer = da("idfriend")
            Dim namefriend As String = da("namefriend")
            Dim friendimg As Byte() = da("friendimg")
            Dim lst As ListView = If(status = "online", ListView1, ListView2)

            Dim i As New ListViewItem(namefriend, friendid.ToString)
            ImageList1.Images.Add(friendid.ToString, ImgFromByte(friendimg))
            i.SubItems.Add(friendid)
            lst.Items.Add(i)
        Loop

قمت بتعريف الدالة التالية

كود :

 Function ImgFromByte(img As Byte()) As Bitmap
       Using ms As New MemoryStream(img)
           Return New Bitmap(ms)
       End Using
   End Function

   

ارفقت مثال قمت بعمله حسب فكرتك وكذلك قاعدة البيانات الخاصة به