Как запрограммировать кнопку на смену цвета и текста на ней - VB

Формулировка задачи:

Проблема состоит в том, что я во первых Visual Basic не особо понимаю ибо знаю паскаль и примерную работу Delphi(сделала всего одну программу-сложение) примерно понимаю суть работы просто не хватает знаний сделать задумку. Собственно суть проблемы: Есть набор слайдов в PowerPoint(коммерческого предложения с набором конструкций компаний) и нужно на каждом сделать кнопку, которая бы показывала занята конструкция или нет. Чтобы она скажем изначально изначально была голубого цвета с надписью "Свободно" и если скажем в данный момент конструкция занята, можно было на нее нажать и она стала бы красной с надписью "Занято". Думаю желательно чтобы этот код был в цикле, т.е. чтоб можно было нажимать некоторое количество раз и инфа на ней и цвет менялись.

null

Вот такую фиговину мутила.. но она не работает ибо не знаю как точно описать цикл

Решение задачи: «Как запрограммировать кнопку на смену цвета и текста на ней»

textual
                            Листинг программы 
                        

                            Option Explicit
Dim u As Integer
Private Sub Command1_Click()
   u = u + 1
   If u Mod 2 <> 0 Then
        Command1.Caption = "no svob"
   End If
 
   If u Mod 2 = 0 Then
        Command1.Caption = "svob"
    End If
End Sub
Private Sub Form_Load()
        Command1.Caption = "svob"
End Sub
                        