Требуется помощь по Visual Basic 6.0

[RA0FF]

Знатоки Visual Basic 6.0, помогите ботанику

У меня есть исходник программы, которой я управляю включением\выключением 8-ти USB-шных Реле.
Программа написана так, что имеем на выходе 16 кнопок - по 2 шт. на реле, одна включение, вторая выключение. Вот это и неудобно.
Как все в одну кнопку сделать не пойму.
Через команду If Никак не получается. Пока самостоятельно смог сделать только изменение цвета кнопки, при включении...

Вот, например, код для реле №5 такой

Private Sub Command11_Click()
Call SetRelays(5, True)
Command11.BackColor = &HFF00&
End Sub

Private Sub Command12_Click()
Call SetRelays(5, False)
Command11.BackColor = &H8000000F
End Sub

(Command11 - на кнопке Вкл, Command12 - на кнопке Выкл...)

[UA1ATD]

Нужно иметь признак текущего состояния реле. Это может быть отдельно заведенная переменная или использовать одно из меняющихся полей кнопки - например, цвет.

С бейсиком у меня туго, поэтому покажу как идею

Private Sub Command11_Click()

if Command11.BackColor = &HFF00& then

Call SetRelays(5, True)
Command11.BackColor = &XYZ&

else

Call SetRelays(5, False)
Command11.BackColor = &HFF00&

end if

End Sub

[RA0FF]

С бейсиком у меня туго, поэтому покажу как идею

Сергей, спасибо! С бейсиком у нас все ОК!