Supondo que você tenha (ou crie) uma classe que possua atributos Codigo e Nome, você só precisa configurar as propriedades
ValueMember e DisplayMember, depois você consegue buscar o valor selecionado com a propriedade
SelectedValue.
Class MyItem
Public Sub New(ByVal text As String, ByVal value As Integer)
t = text
v = value
End Sub
Private t As String
Private v As Integer
Public Property Text() As String
Get
Return t
End Get
Set(ByVal value As String)
t = value
End Set
End Property
Public Property Value() As Integer
Get
Return v
End Get
Set(ByVal value As Integer)
v = value
End Set
End Property
End Class
ComboBox1.DisplayMember = "Text"
ComboBox1.Items.Add(New MyItem("USA", 101))
ComboBox1.Items.Add(New MyItem("UK", 109))
ComboBox1.Items.Add(New MyItem("France", 106))
ComboBox1.Items.Add(New MyItem("Germany", 121))
Exemplo retirado de
https://social.msdn.microsoft.com/Forums/vstudio/en-US/3197a91d-c762-40a4-966e-4f06edc80c13/add-items-with-value-and-display-into-comboboxes-in-vbnet-2005-windows-application?forum=vbgeneral
Juliano Nunes - http://linkedin.com/in/julianonunes
Lembre-se de clicar em "Votar como útil" e "Marcar como Resposta" caso tenha respondido sua dúvida.
Remember to "Vote as Helpful" and "Mark as Answer" if your question has been answered.