При нажатии кнопки, соседние цвета меняются местами - VB

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

Помогите сделать так, чтоб при нажатии кнопки, соседние цвета менялись местами. Мне говорили, можно через таймер как-то сделать, но я не понимаю. Помогите пожалуйста

                    Листинг программы
                
 
                            
                        
Private Sub Form_Load()
Show
Picture1.Scale (0, 0)-(25, 25)
Picture1.Line (2, 2)-(2, 8)
Picture1.Line (2, 8)-(4, 8)
Picture1.Line (4, 8)-(4, 2)
Picture1.Line (4, 2)-(2, 2)
Picture1.Line (2, 2)-(4, 8), QBColor(9), BF
 
Picture1.Line (5, 2)-(5, 8)
Picture1.Line (5, 8)-(7, 8)
Picture1.Line (7, 8)-(7, 2)
Picture1.Line (7, 2)-(5, 2)
Picture1.Line (5, 2)-(7, 8), QBColor(11), BF
 
Picture1.Line (8, 2)-(8, 8)
Picture1.Line (8, 8)-(10, 8)
Picture1.Line (10, 8)-(10, 2)
Picture1.Line (10, 2)-(8, 2)
Picture1.Line (8, 2)-(10, 8), QBColor(13), BF
 
Picture1.Line (11, 2)-(11, 8)
Picture1.Line (11, 8)-(13, 8)
Picture1.Line (13, 8)-(13, 2)
Picture1.Line (13, 2)-(11, 2)
Picture1.Line (11, 2)-(13, 8), QBColor(12), BF
 
Picture1.Line (14, 2)-(14, 8)
Picture1.Line (14, 8)-(16, 8)
Picture1.Line (16, 8)-(16, 2)
Picture1.Line (16, 2)-(14, 2)
Picture1.Line (14, 2)-(16, 8), QBColor(14), BF
 
Picture1.Line (17, 2)-(17, 8)
Picture1.Line (17, 8)-(19, 8)
Picture1.Line (19, 8)-(19, 2)
Picture1.Line (19, 2)-(17, 2)
Picture1.Line (17, 2)-(19, 8), QBColor(10), BF
 
Picture1.Line (20, 2)-(20, 8)
Picture1.Line (20, 8)-(22, 8)
Picture1.Line (22, 8)-(22, 2)
Picture1.Line (22, 2)-(20, 2)
Picture1.Line (20, 2)-(22, 8), QBColor(6), BF
 
End Sub

Решение задачи: «При нажатии кнопки, соседние цвета меняются местами»

textual
                            Листинг программы 
                        
QBColor(a_qbc(c Mod 7))
QBColor(a_qbc((c + 1) Mod 7))