DesktopListbox AddExpandableRowWithTag

Code Sharing
1

This method adds an expandable row to a listbox with a Row Tag

Public Sub AddExpandableRowWithTag(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
  
End Sub