For Each vnItem In List.mcolList If IsCodeRemoved(Code, List.Key(vnItem.Value)) Then Dim codeRemaining As String = CodeRemove(List.Key(vnItem.Value), CodeType) If Code <> codeRemaining Then UpdateContingents(List.Key(vnItem.Value), -2) End If End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)