Visual Basic

dim ds as YingexpoDataset
myDataGridView.DataSource = ds.DefaultViewManager

Public Class AirportRange
	Private _display As String
	Public Property Display() As String
		Get
			Return _display
		End Get
		Set(ByVal value As String)
			_display = value
		End Set
	End Property

	Private _value As Integer
	Public Property Value() As Integer
		Get
			Return _value
		End Get
		Set(ByVal value As Integer)
			_value = value
		End Set
	End Property
End Class

Public Class Item
    Private myValue As Integer
    Private myName As String

    Public Sub New(ByVal number As Integer, ByVal name As String)
        myValue = number
        myName = name
    End Sub

    Public ReadOnly Property Valu() As Integer
        Get
            Return myValue
        End Get
    End Property

    Public ReadOnly Property Name() As String
        Get
            Return myName
        End Get
    End Property
End Class

Private Items As List(Of Item)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Items = New List(Of Item)
    Items.Add(New Item(1, "one"))
    Items.Add(New Item(2, "two"))
    Items.Add(New Item(3, "three"))
    For Each ctrl As Control In Me.Controls
        If TypeOf (ctrl) Is ComboBox Then
            Dim cmb As ComboBox = CType(ctrl, ComboBox)
            cmb.DataSource = Items
            cmb.DisplayMember = "Name"
            cmb.ValueMember = "Valu"
        End If
    Next
End Sub