Public Class frmManager

    Dim Libraries As New SortedDictionary(Of String, String)

    Private Sub frmManager_Load(sender As Object, e As EventArgs) Handles Me.Load

        Libraries.Add("Zahnow Library", "SVSU")
        Libraries.Add("Fleschner Memorial Library", "BR")
        Libraries.Add("Scott D. James Technical Repository", "SDJ")

        lstLibraries.Items.Clear()

        populatelstLibrary()

    End Sub

    Sub populatelstLibrary()
        For Each library In Libraries
            lstLibraries.Items.Add(vbCrLf & library.Key & " --- " & library.Value)
        Next
    End Sub

    Private Sub btnDeleteLibrary_Click(sender As Object, e As EventArgs) Handles btnDeleteLibrary.Click

        Libraries.Remove(lstLibraries.SelectedValue)

        lstLibraries.Items.Clear()
        populatelstLibrary()

    End Sub

End Class