Public Sub AddContact(ByVal Contact_name As String, ByVal email As String, ByVal Optional selected As Boolean = False, ByVal Optional path As String = "")
    Dim contact_item As ContactListItem = New ContactListItem()
    contact_item.Add(Contact_name, email, selected, path)
    contact_item.Dock = DockStyle.Top
    panel1.Controls.Add(contact_item)
    contact_item.BringToFront()
End Sub

Public Sub AddContacts()
    AddContact("Visual Idiot", "Vi@su.al", False, "C: \Users\Beckie\Pictures\avatars\avatar-one.jpg")
    AddContact("Kerem Suer", "Kerem@kerem.co", False, "C:\Users\Beckie\Pictures\avatars\avatar-two.jpg")
    AddContact("Josh Hamsley", "Josh@hamsley.com", False, "C:\Users\Beckie\Pictures\avatars\avatar-three.jpg")
    AddContact("Fabio", "fabio@ffabs.com", False, "C:\Users\Beckie\Pictures\avatars\avatar-four.jpg")
    AddContact("Anthony Lagoon", "anthony@lagoon.co", False, "C:\Users\Beckie\Pictures\avatars\avatar-five.png")
    AddContact("Jenny Shen", "jen@shen.co", False, "C:\Users\Beckie\Pictures\avatars\avatar-six.png")
    AddContact("Charlie Waite", "charlie@focuslab.com", False, "C:\Users\Beckie\Pictures\avatars\avatar-seven.png")
    AddContact("Ed Wellbrook", "El@wb.co", False, "C:\Users\Beckie\Pictures\avatars\avatar-eight.png")
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    AddContacts()
    AddList()
End Sub