Private Sub MultipleItemsChanged(ByVal sender As Object, ByVal e As DataAccess.EasyDAMultipleItemsChangedEventArgs) Handles m_opcClient.MultipleItemsChanged
 
        Dim Tags As New HQTags
 
        For i As Integer = e.ArgsArray.GetLowerBound(0) To e.ArgsArray.GetUpperBound(0)
 
            Dim Tag As HQTag = CType(e.ArgsArray(i).State, HQTag)
 
            If e.ArgsArray(i).Exception IsNot Nothing Then
                Tag.ServerError = e.ArgsArray(i).Exception.GetHashCode
            Else
                Tag.Value = e.ArgsArray(i).Vtq.Value
            End If
 
            'Add Tag to the Tags collection object
            Tags.Add(Tag)
 
        Next i
 
        RaiseEvent MultipleTagsChanged(Tags)
 
    End Sub