Public Class Form1
    Dim customers = New Dictionary(Of String, String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        customers.Add(New String({"City Power & Light"}, {"http://www.cpandl.com/"}))
        customers.Add(New String("Wide World Importers", "http://www.wideworldimporters.com/"))
        customers.Add(New String("Lucerne Publishing", "http://www.lucernepublishing.com/"))

        For Each i In customers
            ComboBox1.Items.Add(i)
        Next
    End Sub
End Class