Is that a way to make this work?

Private Sub EnhancedList1_SelectedRowChanged() Handles EnhancedList1.SelectedRowChanged
    '-- Establish locals
    Dim loRows As Integer()

    '-- Get the selected rows
    loRows = CType(Me.EnhancedList1.MainView, DevExpress.XtraGrid.Views.Grid.GridView).GetSelectedRows()

    '-- Determine whether there is a row selected
    If loRows.Length > 0 Then
        '-- Navigate to the row within the business object
        Me.BoCadEmpresa1.Navigate(MicroFour.StrataFrame.Business.BusinessNavigationDirection.Absolute, loRows(0))
    End If

End Sub