szItemIDs(1) = "Tag1" 'the wincc tag name
szItemIDs(2) = "Tag2" 'the wincc tag name

reqDataType(1) = vbVInteger 'vbVString
reqDataType(2) = vbVString
accPath(1) = ""
accPath(2) = ""
lCltHdls(1) = 1
lCltHdls(2) = 2

Set mOpcItms = mOpcGrp.OPCItems
mOpcItms.AddItems 2, szItemIDs, lCltHdls, lItemSvrHdls, _
pErrors, reqDataType, accPath
－－拷贝自例子程序