Dim OpcServer As New OPCServer
Dim OpcGroup As OPCGroup
Dim OpcItem As OPCItem
Dim OPCItemIDs(1500) As OPCItem
Dim vItem As String = ""
'connexion au serveur opc sycon
OpcServer.Connect("HilscherGmbH.CifOpcServer.1")
' Add this group to the shared topic
OpcGroup = OpcServer.OPCGroups.Add("Bascule_Data")
OpcGroup.IsSubscribed = False
OpcGroup.IsActive = False
OpcGroup.UpdateRate = 250
OpcGroup.OPCItems.DefaultAccessPath = "OPC_Tags"
OpcGroup.OPCItems.AddItem("B0_PDS", 0)
OPCItemIDs(i) = OpcGroup.OPCItems.Item(0) 'voila la position du probleme, quand on arrive à cette ligne il me returne un HRESULT
la connexion au serveur est vérifié, via les client connecté au serveur