DesktopPopupMenu AddRowWithTag extension method

Code Sharing
1

This method combines adding a row to a Popup Menu control and setting the rowtag of that row

Public Sub AddRowWithTag(Extends Value As DesktopPopupMenu, Tag As Variant, Text As String)
  Value.AddRow(Text)
  Value.RowTagAt(Value.LastAddedRowIndex) = tag
End Sub