以下为VB的代码，供参考：
Option Explicit

Option Base 1
Dim IconServer As OPCServer ' OPC server object
Dim RemoteServer As OPCServer ' OPC server object
Dim IconGroups As OPCGroups ' collection of groups
Private WithEvents IconGroup As OPCGroup ' individual group
Dim IconItems As OPCItems 'collection of items
Dim OneItem(27) As OPCItem 'Items
Dim IconServerTime As Date
Dim ClientHandles(27) As Long 'ClientHandles()
Dim ServerHandles() As Long 'ServerHandles()
Dim Errors() As Long
Dim pQuality As Variant
Dim pTimestamp As Variant
Dim ItemIDs(27) As String
Dim AccessPaths(27) As String
Dim Active(27) As Boolean
Dim bServerStarted As Boolean
Dim bReadOn As Boolean
Dim ItemCount As Integer
Dim ReadValue() As Variant
Private Sub Form_Load()

'@@@@@@ opc
Set IconServer = New OPCServer
'ProgID = "Freelance2000OPCServer.30.1"
'Node = "JGRR"
ProgID = "OPCServer.WinCC"
'Node = "JGKZH"

IconServer.Connect ProgID, Node

''If TypeName(IconServer) = TypeName(Nothing) Then
'' MsgBox "Connect Error"
'' Return
''End If

Set IconGroups = IconServer.OPCGroups
IconGroups.DefaultGroupUpdateRate = 500
Set IconGroup = IconGroups.Add("Group One")
IconGroup.IsSubscribed = True
Set IconItems = IconGroup.OPCItems
ItemCount = 2
Dim Index As Integer
Dim Index1 As Integer

Dim StrItem(27) As String

StrItem(1) = "FLASH" '连接OPC服务器的变量
StrItem(2) = "VB_OPC_WinCC" '连接OPC服务器的变量

For Index = 1 To 2
ItemIDs(Index) = StrItem(Index) 'Form1.ItemID(Index).Text
ClientHandles(Index) = Index
Next

IconItems.AddItems ItemCount, ItemIDs, ClientHandles, ServerHandles, Errors, pQuality, pTimestamp

For Index1 = 1 To 2
Set OneItem(Index1) = IconItems.GetOPCItem(ServerHandles(Index1))
Next

'If Errors(1) <> 0 Then
' MsgBox "Add Item Error"
' Return
'End If
'@@@@@@ opc

End Sub