ComboBox CodeSample - Populating with Employees from NorthWind

Imports Gizmox.WebGui.Forms
Public Class Form3
    Friend WithEvents cboEmployee As Gizmox.WebGui.Forms.ComboBox
    Friend WithEvents NorthWindDataset1 As NorthWindDataset
    Friend WithEvents EmployeesTableAdapter1 As NorthWindDatasetTableAdapters.EmployeesTableAdapter
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.cboEmployee = New Gizmox.WebGui.Forms.ComboBox
        Me.NorthWindDataset1 = New NorthWindDataset
        Me.EmployeesTableAdapter1 = New NorthWindDatasetTableAdapters.EmployeesTableAdapter
        CType(Me.NorthWindDataset1, System.ComponentModel.ISupportInitialize).BeginInit()
 
        Me.NorthWindDataset1.DataSetName = "NorthWindDataset"
        Me.NorthWindDataset1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
 
        Me.EmployeesTableAdapter1.ClearBeforeFill = True
 
        Me.cboEmployee.BorderStyle = Gizmox.WebGui.Forms.BorderStyle.Fixed3D
        Me.cboEmployee.DataSource = Me.NorthWindDataset1
        Me.cboEmployee.DisplayMember = "Employees.FirstName"
        Me.cboEmployee.Location = New System.Drawing.Point(28, 46)
        Me.cboEmployee.Name = "cboEmployee"
        Me.cboEmployee.Size = New System.Drawing.Size(121, 21)
        Me.cboEmployee.TabIndex = 0
        Me.cboEmployee.Text = "System.Data.DataViewManagerListItemTypeDescriptor"
        Me.cboEmployee.ValueMember = "Employees.EmployeeID"
 
        Me.Controls.Add(Me.cboEmployee)
        CType(Me.NorthWindDataset1, System.ComponentModel.ISupportInitialize).EndInit()
 
        Me.EmployeesTableAdapter1.Fill(Me.NorthWindDataset1.Employees)
 
        AddHandler cboEmployee.SelectedIndexChanged, AddressOf cboEployee_SelectedIndexChanged
 
    End Sub
 
    Private Sub cboEployee_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Me.cboEmployee.SelectedItem IsNot Nothing Then
            Dim eRow As NorthWindDataset.EmployeesRow = Me.cboEmployee.SelectedItem.Row
            MessageBox.Show("You selected " + eRow.FirstName)
        End If
    End Sub
End Class