Sync Overhaul (Tag Support and Efficiency)

GBM/Classes/clsGameTag.vb

@@ -20,4 +20,19 @@
         End Set
     End Property
 
+    Public Function CoreEquals(obj As Object) As Boolean
+        Dim oGameTag As clsGameTag = TryCast(obj, clsGameTag)
+        If oGameTag Is Nothing Then
+            Return False
+        Else
+            If TagID <> oGameTag.TagID Then
+                Return False
+            End If
+            If MonitorID <> oGameTag.MonitorID Then
+                Return False
+            End If
+            Return True
+        End If
+    End Function
+
 End Class

GBM/Classes/clsTag.vb

@@ -20,4 +20,19 @@
         End Set
     End Property
 
+    Public Function CoreEquals(obj As Object) As Boolean
+        Dim oTag As clsTag = TryCast(obj, clsTag)
+        If oTag Is Nothing Then
+            Return False
+        Else
+            If ID <> oTag.ID Then
+                Return False
+            End If
+            If Name <> oTag.Name Then
+                Return False
+            End If
+            Return True
+        End If
+    End Function
+
 End Class