Public Class ComboData
        Private _name As String
        Private _id As Integer
 
        Public Sub New(ByVal name As String, ByVal id As Integer)
            _name = name
            _id = id
        End Sub
 
        Public Property Name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property
        Public Property Id() As Integer
            Get
                Return _id
            End Get
            Set(ByVal value As Integer)
                _id = value
            End Set
        End Property
    End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim locd As New List(Of ComboData)
        Dim data() As String = Split(My.Computer.FileSystem.ReadAllText( _
          "C:\cv.txt"), vbCrLf)
 
        For i = 0 To data.Length / 2 - 1 Step 2
            locd.Add(New ComboData(data(i), data(i + 1)))
        Next
 
        ComboBox1.DisplayMember = "Name"
        ComboBox1.ValueMember = "Id"
        ComboBox1.DataSource = locd
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        MsgBox("Id=" & ComboBox1.SelectedValue)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov