DimsServerName As String 
        DimsTagRead(0) As String 
        DimsTagWrite(0) As String 
        DimoWriteValues(0) As Object 
        DimoTypeCode(0) As TypeCode 
        DimbResult As Boolean= False
    bResult = OPC_UA_WriteMultipleItems(“192.168.2.115:49380”, “SLC500.SLC500.N7:0”,  "nsu=TOP Server;ns=2;s=", “123”, oTypeCode)

    FunctionOPC_UA_WriteMultipleItems(ByValsServerName As String, _
                                       ByValTags() As String, _
                                       ByValsServerType As String, _
                                       ByValoValues() As Object, _
                                       ByValoTypeCode() As TypeCode) As Boolean
        DimReadValues() As ValueResult= Nothing
        'Read tags to get varibale types 
        OPC_UA_ReadMultipleItems(sServerName, Tags, sServerType, ReadValues)
        DimI As Integer 
        DimeasyUAClient1 = New EasyUAClient()
        'create an array to store the results of the write instruction 
        DimResults() AsOpcLabs.BaseLib.OperationResult  'OpcLabs.EasyOpc.UA.UAWriteResult
        DimArgs(UBound(Tags)) As UAWriteArguments
        Try
            'iterate through the array and add tags and values to Argument object 
            ForI = LBound(Tags) ToUBound(Tags)
                oTypeCode(I) = System.Type.GetTypeCode(ReadValues(I).Value.GetType())
                Args(I) = NewOpcLabs.EasyOpc.UA.UAWriteArguments("opc.tcp://"& sServerName, _
                                                                  sServerType & Tags(I), _
                                                                   NewOpcLabs.EasyOpc.UA.UAAttributeData(oValues(I)), oTypeCode(I))
            Next
            IfIsNothing(Args) = False Then 
                'Write the items 
                Results = easyUAClient1.WriteMultiple(Args)
            End If
        Catchex As Exception 
            'display an exception to screen 
            MessageBox.Show(ex.Message)
        Finally 
 
            ForI = LBound(Tags) ToUBound(Tags)
                IfResults(I).Succeeded = False Then 
                    OPC_UA_WriteMultipleItems = False 'Bad Write 
                    Exit For 
                Else 
                    OPC_UA_WriteMultipleItems = True    'Good Write 
                End If 
            Next
            'Kill objects 
            easyUAClient1.Dispose()
            IfIsNothing(easyUAClient1) = False TheneasyUAClient1 = Nothing 
            IfIsNothing(Results) = False ThenResults = Nothing 
            IfIsNothing(Args) = False ThenArgs = Nothing
        End Try
    End Function