You can populate a DropDownList like this way.
Protected Sub Button1_Click(sender As Object, e As EventArgs)
Dim ItemList As IList(Of Object) = New List(Of Object)
ItemList.Add(New With {.A = "this", .B = "1"})
ItemList.Add(New With {.A = "that", .B = "2"})
ItemList.Add(New With {.A = "something else", .B = "3"})
ItemList.Add(New With {.A = "this else", .B = "4"})
ItemList.Add(New With {.A = "something something else", .B = "5"})
DropDownList1.DataSource = ItemList
DropDownList1.DataTextField = "A"
DropDownList1.DataValueField = "B"
DropDownList1.DataBind()
End Sub