OPC SERVER/CLIENT

Question

Dear Sir
I try to connect the opc server.And I have connected the server successed.But there is question confused me as below:
code as below that for additems after connected the OPC server
If WriteItemIndex > 0 Then
            WtInputItemColl.AddItems(WriteItemIndex, WriteItem, ClientHandles1, ServerHandlesWtIn, ErrorsWtIn)
            WtInputGrp.IsSubscribed = True
End If
Running code, vb2013 show the message:"
An unhandled exception of type 'System.Runtime.InteropServices.SafeArrayTypeMismatchException' occurred in OPC_CLIENT1.exe
Additional information:The specified array was not of the expected type.
I checked the AddItems.Syntax
AddItems (Count As Long, ItemIDs() As String, ClientHandles() As Long, ByRef
ServerHandles() As Long, ByRef Errors() As Long, Optional RequestedDataTypes As Variant,
Optional AccessPaths As Variant)
I can not find the error,I have defined all the variants as syntax
    Dim ServerHandlesWtIn(100) As VariantType
    Dim ServerHandlesRdOut(100) As VariantType
    Dim WithEvents WtInputGrp As OPCGroup
    Dim WithEvents RdOutputGrp As OPCGroup
    Dim WtInputItemColl As OPCItems
    Dim RdOutputItemColl As OPCItems
    Dim ClientHandles1(100) As Long
    Dim ReadItem(100) As String
    Dim ReadValue(100) As VariantType
    Dim WriteItem(100) As String
    Dim WriteValue(100) As VariantType
    Dim ErrorsWtIn(100) As VariantType
    Dim ErrorsRdOut(100) As VariantType
    Dim WriteItemIndex As Long
    Dim ReadItemIndex As Long
Please help me find it,thank you!

Answer 1

Hello Yu Du,
This looks like VB6 code. This forum is only for VB.Net since 2002. VB6 is not supported anymore. Have a look at this page and post to the linked forum:
Visual Basic 6.0 Resource Center
Armin