Hello genious2015

I´m not sure if its the smartest way but it works in a fast test:

------

If (SmartTags("Properties\Var1") And 2^4) Then
' Reset the bit
SmartTags("Properties\Var1") = SmartTags("Properties\Var1")  And(Not 2^4)
Else
' set the bit
SmartTags("Properties\Var1") = SmartTags("Properties\Var1") Or 2^4
End If

--------

Bye Murof