Not sure if this is best way but this makes it work 2012
Changing
Overrule.Overruling = Not Overrule.Overruling
to
If mDrawOverrule Is Nothing Then
mDrawOverrule = New MyDrawOverrule
Overrule.AddOverrule(RXObject.GetClass(GetType(Line)), mDrawOverrule, False)
Else
Overrule.Overruling = False
Overrule.RemoveOverrule(RXObject.GetClass(GetType(Line)), mDrawOverrule)
mDrawOverrule = Nothing
End If