Set up a GridEX

GridEXSetup.vb

Private Sub SetUpGridEX()            
  'create the Janus GridEX
  Dim MyGridEX As New GridEX
  With MyGridEX
      .Name = DT.TableName & "GridEX"
      .Dock = DockStyle.Fill
      .DataSource = MyBindingSource
      .BoundMode = BoundMode.Bound
      .GroupByBoxVisible = True
      .Hierarchical = False
      .NewRowPosition = NewRowPosition.BottomRow
      .RecordNavigator = True
      .RetrieveStructure()
      .GroupMode = GroupMode.Collapsed
  End With
  AddHandler MyGridEX.Click, AddressOf GridEX_Click
End Sub

Private Sub GridEX_Click(sender As Object, e As EventArgs)
  Dim MyGridEX As GridEX = sender
  For Each Row As GridEXRow In MyGridEX.GetRows
    For i As Integer = 0 To Row.Cells.Count - 1
        Debug.Print(vbTab & Row.Cells(i).Column.Caption & " " & Row.Cells(i).Value)
    Next
  Next
End Sub