用VB的DEMO:
VB DEMO!!!!!
　　
　　STEP_1:Init Server!!
　　 Set Svr=CreateObject(ProgID$)
　　
　　STEP_2:AddGroup!!
　　 Set Group=Svr.AddGroup "OPC.SimaticNET" false RateRequested,GroupClientHdl, PercentDeadband, dwLangId_ENGLISH,GroupServerHdl, RateRevised
　　 Set PtrItemMgt =Group
　　
　　STEP_3:AddItems!!!
　　 ItemsActive(0)= True: ItemsActive(1)= True
　　 PtrItemMgt.AddItems NbrItems, ItemsIDs,ItemsActivity, ItemsClientHdls,ItemsSvrHdls, ItemsErrors, ItemsObjects, accessPath
　　
　　STEP_4:Read&Write Items!!!!
　　 Set ptrSyncIO = group
　　 WHILE (true)
　　 PtrSyncIO.OPCRead OPC_DS_DEVICE, NbrItems, ItemsSvrHdls,pValues, pQualities, pTimeStamps, ItemsErrors
　　 WEND
　　
　　STEP_5: Free Group&Items!!!!!!
　　 Svr.RemoveGroup GroupServerHdl, False
　　 Set Group = Nothing
　　 Set Svr = NothingS