这是工程脚本的一部分，看的有些明白，就是通过赋值比较弹出相应对话框，但具体不太会用，各位可帮细解下吗？
Select Case SmartTags("DM2000")
Case 0 If (SmartTags("Compressor_manual1")) Then SmartTags("Compressor_manual1")=False Else SmartTags("Compressor_manual1")=True
Case 1 If (SmartTags("Compressor_manual2")) Then SmartTags("Compressor_manual2")=False Else SmartTags("Compressor_manual2")=True
Case 2 If (SmartTags("Compressor_manual3")) Then SmartTags("Compressor_manual3")=False Else SmartTags("Compressor_manual3")=True
Case 3 If (SmartTags("Compressor_manual4")) Then SmartTags("Compressor_manual4")=False Else SmartTags("Compressor_manual4")=True
Case 4 If (SmartTags("Vacuum_pump_manual1")) Then SmartTags("Vacuum_pump_manual1")=False Else SmartTags("Vacuum_pump_manual1")=True
Case 5 If (SmartTags("Vacuum_pump_manual2")) Then SmartTags("Vacuum_pump_manual2")=False Else SmartTags("Vacuum_pump_manual2")=True
Case 6 If (SmartTags("Vacuum_pump_manual3")) Then SmartTags("Vacuum_pump_manual3")=False Else SmartTags("Vacuum_pump_manual3")=True
Case 7 If (SmartTags("Vacuum_pump_manual4")) Then SmartTags("Vacuum_pump_manual4")=False Else SmartTags("Vacuum_pump_manual4")=True
Case 8 If (SmartTags("Booster_pump_manual1")) Then SmartTags("Booster_pump_manual1")=False Else SmartTags("Booster_pump_manual1")=True
Case 9 If (SmartTags("Booster_pump_manual2")) Then SmartTags("Booster_pump_manual2")=False Else SmartTags("Booster_pump_manual2")=True
Case 10 If (SmartTags("Circulation_pump_manual1")) Then SmartTags("Circulation_pump_manual1")=False Else SmartTags("Circulation_pump_manual1")=True
Case 11 If (SmartTags("Circulation_pump_manual2")) Then SmartTags("Circulation_pump_manual2")=False Else SmartTags("Circulation_pump_manual2")=True
Case 12 If (SmartTags("Circulation_pump_manual3")) Then SmartTags("Circulation_pump_manual3")=False Else SmartTags("Circulation_pump_manual3")=True
Case 13 If (SmartTags("Circulation_pump_manual4")) Then SmartTags("Circulation_pump_manual4")=False Else SmartTags("Circulation_pump_manual4")=True
Case 14 If (SmartTags("HydrauliIc_pump_manual")) Then SmartTags("HydrauliIc_pump_manual")=False Else SmartTags("HydrauliIc_pump_manual")=True


Case 112 If (SmartTags("蒸汽冷却阀手动")) Then SmartTags("蒸汽冷却阀手动")=False Else SmartTags("蒸汽冷却阀手动")=True
End Select