Sub OnClick(ByVal Item)           

Dim i

i=8 ‘第八位的取反位

SmartTags(".Command")=SmartTags(".Command") Xor 2^i

End Sub

Sub OnClick(ByVal Item)             

Dim i

i=9  '第九位的置位

SmartTags(".Command")=SmartTags(".Command") Or 2^i

End Sub

Sub OnClick(ByVal Item)         

Dim i

i=9 ‘第九位复位

SmartTags(".Command")=SmartTags(".Command") And Not 2^i

End Sub