Public Function SyncReadItems(ByRef Tags As SQTags) As Boolean
 
        Dim argumentArray As DAItemValueArguments() = New DAItemValueArguments(Tags.Count - 1) {}
        Dim handleResult() As ValueResult
 
 
        For i As Integer = 0 To Tags.Count - 1
 
            argumentArray(i) = New DAItemValueArguments(m_MachineName, m_OPCServerName, Tags.Item(i).ClientTagname, Tags.Item(i).Value)
 
        Next i
 
        handleResult = m_opcClient.ReadMultipleItemValues(argumentArray)
 
        For i As Integer = 0 To Tags.Count - 1
 
            If Not handleResult(i).Succeeded Then
                Return False
            End If
 
        Next i
 
        Return True
 
    End Function