DesktopListbox AddExpandedRowWithTag

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.