This method adds an expandable row to a DesktopListBox, sets the RowTag and fires the ExpandRow Event
Public Sub AddExpandedRowWithTag(Extends Value As DesktopListBox, Tag As Variant, ParamArray Columns() As String)
Value.AddExpandableRow("")
Value.RowTagAt(Value.LastAddedRowIndex) = Tag
Var Index As Integer
For Each s As String in Columns
Value.CellTextAt(Value.LastAddedRowIndex, Index) = s
Index = Index + 1
Next s
Value.RowExpandedAt(Value.LastAddedRowIndex) = True
End Sub
Note the column values are a ParamArray so you can populate the entire row.