For Each bo As bizTransactionItems In .BusinessObject.GetEnumerable() '-- Create a new item. The item is actually the first column as well. ' The first column will have an icon and a checkbox item = New StrataListViewItem(String.Empty, String.Empty, MicroFour.StrataFrame.UI.Rendering.Enums.StrataCheckBoxSupportType.TwoState, MicroFour.StrataFrame.UI.Rendering.Enums.StrataCheckedState.Unchecked) '-- Create the sub items. A sub-item is ultimately nothing more than a column. item.SubItems.Add(bo.cfp_CardDescription, String.Empty) item.SubItems.Add(Format(bo.ItemQty, "n0"), String.Empty) item.SubItems.Add(bo.CardStartSerialNumber.ToString, String.Empty) Dim groupTitle As String = String.Format("Reference #: {0} Processed by {1} on {2}", bo.CurrentRow.Item("ReferenceNo"), bo.CurrentRow.Item("ReceivedBy"), bo.CurrentRow.Item("ReceivedOn")) item.Group = .Groups(groupTitle, True, False) '-- Create a custom data item that stores the primary key of this record item.CustomData.Add("PrimaryKey", bo.PK_TransactionItems) '-- Add the item to the list Me.lstCSVActivationExport.Items.Add(item)Next