Here is an example, in using ActiveX with Vwap IB Algo.
Dim m_ITagvaluelist As TWSLib.ITagValueList
m_ITagvaluelist = Tws1.createTagValueList
Dim m_ITagvalue1 As TWSLib.ITagValue
m_ITagvalue1 = m_ITagvaluelist.Add("maxPctVol", ".01")
Dim m_contract As TWSLib.IContract...