'Declaration
Sub SetItemValues( _
ByVal As Integer, _
ByVal As Object, _
ByVal As Object, _
ByVal As Integer _
)
'Usage
Dim instance As IContextData
Dim participantCoupon As Integer
Dim itemNames As Object
Dim itemValues As Object
Dim contextCoupon As Integer
instance.SetItemValues(participantCoupon, itemNames, itemValues, contextCoupon)