Как создать красивый контакт лист User control

Dim xml As New XmlDocument
        Dim node As System.Xml.XmlNode
        xml.Load("https://api.vk.com/method/friends.get.xml?user_id=1&order=hints&fields=photo_50,online,last_seen")
        While xml.DocumentElement.HasChildNodes
            node = xml.DocumentElement.FirstChild
 
            Dim panel As New Windows.Forms.Panel With {.Width = 255, .Height = 54, .Tag = node.Item("uid").InnerXml}
            Dim label1 As New Windows.Forms.Label With {.Left = 55, .Top = 5, .Text = node.Item("first_name").InnerXml & " " & node.Item("last_name").InnerXml}
            Dim image As New Windows.Forms.PictureBox With {.Left = 2, .Top = 2, .Width = 50, .Height = 50, .ImageLocation = node.Item("photo_50").InnerXml}
 
 
            Dim label2 As New Windows.Forms.Label
            With label2
                .Left = 55
                .Top = 30
                If node.Item("online").InnerXml = 1 Then
                    .Text = "Online"
                    .ForeColor = Color.Green
                Else
                    .Text = "Offline"
                    .ForeColor = Color.Red
                End If
 
            End With
            panel.Controls.Add(label1)
            panel.Controls.Add(label2)
            panel.Controls.Add(image)
 
            xml.DocumentElement.RemoveChild(node)
            FlowLayoutPanel1.Controls.Add(panel)
            FlowLayoutPanel1.Refresh()
        End While

Private Sub listBox1_MeasureItem(ByVal sender As Object, ByVal e As MeasureItemEventArgs)
        MessageBox.Show("listBox1_MeasureItem")
        ' Cast the sender object back to ListBox type.
        Dim theListBox As ListBox = CType(sender, ListBox)
        ' Получить путь к файлу, содержащаяся в каждом элементе.
        Dim drv As DataRowView = CType(theListBox.Items(e.Index), DataRowView)
        Dim fileString As String = drv.Row("fullpath").ToString
        ' Создайте объект изображения и загрузить файл изображения в него
        Dim img As Image = Image.FromFile(fileString)
        e.ItemHeight = Convert.ToInt32((img.Height * 0.15))
        e.ItemWidth = Convert.ToInt32((img.Width * 0.15))
    End Sub
 
    Private Sub listBox1_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs)
        MessageBox.Show("listBox1_DrawItem")
        ' If the item is the selected item, then draw the rectangle
        ' filled in blue. The item is selected when a bitwise And  
        ' of the State property and the DrawItemState.Selected 
        ' property is true.
        If ((e.State And DrawItemState.Selected) _
                    = DrawItemState.Selected) Then
            e.Graphics.FillRectangle(Brushes.CornflowerBlue, e.Bounds)
        Else
            ' Otherwise, draw the rectangle filled in beige.
            e.Graphics.FillRectangle(Brushes.Beige, e.Bounds)
        End If
        Dim drv As DataRowView = CType(listBox1.Items(e.Index), DataRowView)
        Dim img As Image = Image.FromFile(drv.Row("fullpath").ToString)
        img = img.GetThumbnailImage(e.Bounds.Width, e.Bounds.Height, Nothing, IntPtr.Zero)
        e.Graphics.DrawImage(img, e.Bounds.X, e.Bounds.Y)
        ' Draw the focus rectangle around the selected item.
        e.DrawFocusRectangle()
    End Sub

Private images() As String = New String(3) {"http://upload.wikimedia.org/wikipedia/commons/3/30/HMLA-469_Logo.jpg", "http://upload.wikimedia.org/wikipedia/commons/3/30/HMLA-469_Logo.jpg", "http://upload.wikimedia.org/wikipedia/commons/3/30/HMLA-469_Logo.jpg", "http://upload.wikimedia.org/wikipedia/commons/3/30/HMLA-469_Logo.jpg"}
    Private strings() As String = New String(3) {"21341241", "2123123123", "312312312", "4123123"}
    Private status() As String = New String(3) {"Онлайн", "оффлайн", "оффлайн", "оффлайн"}
 
    Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem
        e.DrawBackground()
        Const SizeIc = 50
        Dim RectIc As New Rectangle(e.Bounds.Left, e.Bounds.Top, SizeIc, e.Bounds.Height)
        Dim RectText As New Rectangle(e.Bounds.Left + SizeIc, e.Bounds.Top, e.Bounds.Width - SizeIc, e.Bounds.Height)
        Dim myBrush As Brush = Brushes.Black
 
        Dim b() As Byte
        Dim myReq As HttpWebRequest = CType(WebRequest.Create(images(e.Index)), HttpWebRequest)
        Dim myResp As WebResponse = myReq.GetResponse
        Dim stream As Stream = myResp.GetResponseStream
 
 
        Dim img As Image = Image.FromStream(myResp.GetResponseStream)
        Dim pt As Point = e.Bounds.Location
        pt.Offset(50, 5)
        Dim pt1 As Point = e.Bounds.Location
        pt1.Offset(50, 20)
        e.Graphics.DrawImage(img, RectIc)
 
        Dim pic As New PictureBox With {.ImageLocation = images(e.Index)}
 
        e.Graphics.DrawString(strings(e.Index), Me.Font, New SolidBrush(Color.Black), pt)
        e.Graphics.DrawString(status(e.Index), Me.Font, New SolidBrush(Color.Black), pt1)
        e.DrawFocusRectangle()
    End Sub
 
    Private Sub ListBox1_MeasureItem(sender As Object, e As MeasureItemEventArgs) Handles ListBox1.MeasureItem
        e.ItemHeight = 50 'высота строки
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListBox1.Items.AddRange(strings)
    End Sub

 'тут храним FullName
    Private strings() As String = New String() {"кирил пупкин", "вася пупкин", "дима димыч", "дурак дураков"}
    'Здесь будет статус онлайна
    Private status() As String = New String() {"Онлайн", "оффлайн", "оффлайн", "оффлайн"}
    'массив картинок
    Private image1() As Image
 
    'какаха функция загружает и выдает в потом картинку
    Function getimage(ByVal url As String)
        Dim myReq As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        Dim myResp As WebResponse = myReq.GetResponse
        Dim stream As Stream = myResp.GetResponseStream
        Return stream
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a As String = "http://upload.wikimedia.org/wikipedia/commons/3/30/HMLA-469_Logo.jpg"
        image1 = New Image() {Image.FromStream(getimage(a)), Image.FromStream(getimage(a)), Image.FromStream(getimage(a)), Image.FromStream(getimage(a))}
        ListBox1.Items.AddRange(strings)
    End Sub
 
    Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem
        e.DrawBackground()
        Const SizeIc = 50
        Dim RectIc As New Rectangle(e.Bounds.Left, e.Bounds.Top, SizeIc, e.Bounds.Height)
        Dim RectText As New Rectangle(e.Bounds.Left + SizeIc, e.Bounds.Top, e.Bounds.Width - SizeIc, e.Bounds.Height)
        Dim myBrush As Brush = Brushes.Black
        Dim pt As Point = e.Bounds.Location
        pt.Offset(50, 5)
        Dim pt1 As Point = e.Bounds.Location
        pt1.Offset(50, 20)
        e.Graphics.DrawImage(image1(e.Index), RectIc)
        e.Graphics.DrawString(strings(e.Index), Me.Font, New SolidBrush(Color.Black), pt)
        e.Graphics.DrawString(status(e.Index), Me.Font, New SolidBrush(Color.Aquamarine), pt1)
        e.DrawFocusRectangle()
    End Sub
 
    Private Sub ListBox1_MeasureItem(sender As Object, e As MeasureItemEventArgs) Handles ListBox1.MeasureItem
        e.ItemHeight = 50 'высота строки
    End Sub

Imports System.Net
Imports System.Xml
 
Public Class Friends
    Public UID As New ArrayList()
    Public FullName As New ArrayList()
    Public Online As New ArrayList()
    Public Image As New ArrayList()
    Dim Temp As String = System.IO.Path.GetTempPath()
    Dim xml As New XmlDocument
    Dim node As System.Xml.XmlNode
    Private GetFriendsList As New System.Threading.Thread(AddressOf FriendsList)
 
    Public Sub MonitorStart(ByVal id As String)
        GetFriendsList.Start(id)
        GetFriendsList.IsBackground = True
    End Sub
 
    Public Function GetList()
        If GetFriendsList.IsAlive = False Then
            Form1.ListBox1.Items.Clear()
            Form1.ListBox1.Items.AddRange(FullName.ToArray)
        Else
            Return "Wait"
        End If
    End Function
 
    Public Sub Refresh()
        Dim sel As String = Form1.ListBox1.SelectedIndex()
        GetList()
        Form1.Друзья.BringToFront()
        Form1.ListBox1.SelectedIndex = sel
    End Sub
 
    Private Sub FriendsList(ByVal id As String)
        UID.Clear()
        FullName.Clear()
        Online.Clear()
        Image.Clear()
        xml.Load("https://api.vk.com/method/friends.get.xml?user_id=" & id & "&order=hints&fields=photo_50,online,last_seen")
        While xml.DocumentElement.HasChildNodes
            node = xml.DocumentElement.FirstChild
            UID.Add(node.Item("uid").InnerXml)
            If System.IO.File.Exists(Temp & "ManegerVK\" & node.Item("uid").InnerXml & ".im") = True Then
                If (My.Computer.Clock.LocalTime.Minute - System.IO.File.GetCreationTime(Temp & "ManegerVK\" & node.Item("uid").InnerXml & ".im").Minute) >= 60 Then
                    System.IO.File.Delete(Temp & "ManegerVK\" & node.Item("uid").InnerXml & ".im")
                    My.Computer.Network.DownloadFile(node.Item("photo_50").InnerXml, (Temp & "ManegerVK\" & node.Item("uid").InnerXml & ".im"))
                Else
                End If
            Else
                My.Computer.Network.DownloadFile(node.Item("photo_50").InnerXml, (Temp & "ManegerVK\" & node.Item("uid").InnerXml & ".im"))
            End If
            FullName.Add(node.Item("first_name").InnerXml & " " & node.Item("last_name").InnerXml)
            Online.Add(node.Item("online").InnerXml)
            Image.Add(System.IO.Path.GetTempPath() & "ManegerVK\" & node.Item("uid").InnerXml & ".im")
            xml.DocumentElement.RemoveChild(node)
        End While
        GetFriendsList.Abort()
        Form1.ListBox1.Items.AddRange(UID.ToArray)
    End Sub
 
   
 
End Class

'Список друзей================================
    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        e.DrawBackground()
        Const SizeIc = 80
        Dim RectIc As New Rectangle(e.Bounds.Left, e.Bounds.Top, SizeIc, e.Bounds.Height)
        Dim RectText As New Rectangle(e.Bounds.Left + SizeIc, e.Bounds.Top, e.Bounds.Width - SizeIc, e.Bounds.Height)
        Dim fontName As Font = New System.Drawing.Font("Arial", 9, FontStyle.Italic)
        Dim img As Image = Image.FromFile(Friends.Image(e.Index))
        Dim pt As Point = e.Bounds.Location
        Dim pt1 As Point = e.Bounds.Location
        pt.Offset(82, 5)
        pt1.Offset(82, 20)
 
        e.Graphics.DrawImage(img, RectIc)
        e.Graphics.DrawString(Friends.FullName(e.Index), fontName, New SolidBrush(Color.CornflowerBlue), pt)
        If Friends.Online(e.Index) = 1 Then
            e.Graphics.DrawString("В Сети", Me.Font, New SolidBrush(Color.Lime), pt1)
        Else
            e.Graphics.DrawString("Не Сети", Me.Font, New SolidBrush(Color.Red), pt1)
        End If
        e.DrawFocusRectangle()
    End Sub
    
 
 
 
 
    Private Sub ListBox1_MeasureItem(ByVal sender As Object, ByVal e As MeasureItemEventArgs) Handles ListBox1.MeasureItem
        e.ItemHeight = 80 'высота строки
    End Sub

Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        If e.Index < 0 Then Exit Sub
        e.DrawBackground()
        e.DrawFocusRectangle()
 
        Const SizeIc = 80
        Dim RectIc As New Rectangle(e.Bounds.Left + 5, e.Bounds.Top + 5, SizeIc - 5, e.Bounds.Height - 10)
        Dim RectText As New Rectangle(e.Bounds.Left + SizeIc, e.Bounds.Top, e.Bounds.Width - SizeIc, e.Bounds.Height)
        Dim fontName As Font = New System.Drawing.Font("Arial", 12, FontStyle.Italic)
        Dim fontOnline As Font = New System.Drawing.Font("Arial", 12, FontStyle.Italic)
        Dim img As Image = Image.FromFile(Friends.Image(e.Index))
        Dim pt As Point = e.Bounds.Location
        Dim pt1 As Point = e.Bounds.Location
        pt.Offset(82, 5)
        pt1.Offset(82, 20)
 
        If InStr(e.State.ToString, "Selected,") > 0 Then
            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
            Dim x2 As Rectangle = New Rectangle(e.Bounds.Location, New Size(e.Bounds.Width - 1, e.Bounds.Height))
            Dim x3 As Rectangle = New Rectangle(x2.Location, New Size(x2.Width, (x2.Height / 2) - 2))
            Dim G1 As New LinearGradientBrush(New Point(x2.X, x2.Y), New Point(x2.X, x2.Y + x2.Height), Color.FromArgb(60, 60, 60), Color.FromArgb(50, 50, 50))
            Dim H As New HatchBrush(HatchStyle.DarkDownwardDiagonal, Color.FromArgb(15, Color.Black), Color.Transparent)
            e.Graphics.FillRectangle(G1, x2) : G1.Dispose()
            e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(25, Color.White)), x3)
            e.Graphics.FillRectangle(H, x2) : G1.Dispose()
            e.Graphics.DrawImage(img, RectIc)
            e.Graphics.DrawString(Friends.FullName(e.Index), fontName, New SolidBrush(Color.Brown), pt)
            If Friends.Online(e.Index) = 1 Then
                e.Graphics.DrawString("В Сети", fontOnline, New SolidBrush(Color.Lime), pt1)
            Else
                e.Graphics.DrawString("Не Сети", fontOnline, New SolidBrush(Color.Red), pt1)
            End If
        Else
            e.Graphics.DrawImage(img, RectIc)
            e.Graphics.DrawString(Friends.FullName(e.Index), fontName, New SolidBrush(Color.Brown), pt)
            If Friends.Online(e.Index) = 1 Then
                e.Graphics.DrawString("В Сети", fontOnline, New SolidBrush(Color.Lime), pt1)
            Else
                e.Graphics.DrawString("Не Сети", fontOnline, New SolidBrush(Color.Red), pt1)
            End If
        End If

 Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem
        If e.Index < 0 Then Exit Sub
        e.DrawBackground()
        e.DrawFocusRectangle()
 
        Const SizeIc = 35
        Dim RectIc As New Rectangle(e.Bounds.Left + 5, e.Bounds.Top + 5, SizeIc - 5, e.Bounds.Height - 10)
        Dim RectText As New Rectangle(e.Bounds.Left + SizeIc, e.Bounds.Top, e.Bounds.Width - SizeIc, e.Bounds.Height)
        Dim fontName As Font = New System.Drawing.Font("Arial", 10, FontStyle.Italic)
        ' Dim img As Image = PictureBox1.Image
        Dim pt As Point = e.Bounds.Location
        pt.Offset(30, 5)
        If InStr(e.State.ToString, "Selected,") > 0 Then
            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
            Dim x2 As Rectangle = New Rectangle(e.Bounds.Location, New Size(e.Bounds.Width - 1, e.Bounds.Height))
            Dim x3 As Rectangle = New Rectangle(x2.Location, New Size(x2.Width, (x2.Height / 2) - 2))
            e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(25, Color.White)), x3)
            '   e.Graphics.DrawImage(img, RectIc)
            e.Graphics.DrawString(titleDoc(e.Index), fontName, New SolidBrush(Color.WhiteSmoke), pt)
        Else
            '      e.Graphics.DrawImage(img, RectIc)
            e.Graphics.DrawString(titleDoc(e.Index), fontName, New SolidBrush(Color.WhiteSmoke), pt)
        End If
 
        Dim button As New Windows.Forms.Button With {.Width = 40, .Height = 20, .Text = "ololo", .Left = e.Bounds.Right - 60, .Top = e.Bounds.Top + 3}
        ListBox1.Controls.Add(button)
 
    End Sub