Альтернатива

В процессе портирования некой программы с Visual Basic, нашел гениальную альтернативу оператору !

Select Case bln_Сменить_направление_вращения
Case True
bln_Сменить_направление_вращения = False
Case False
bln_Сменить_направление_вращения = True
End Select