Логическая игра Исключение лишнего - VB

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

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

по нажатию на картинку или кнопку под картинкой*

Решение задачи: «Логическая игра Исключение лишнего»

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

                            ...
'x = x + 1 ' Вместо линейного случайный выбор
Randomize Timer
x = Int(Rnd * 10) + 1 ' вместо 10 твоё максимальное кол-во троек 
Image1.Picture = LoadPicture(App.Path & "\" & x & "0images.jpg", 0, 0)
Image2.Picture = LoadPicture(App.Path & "\" & x & "1images.jpg", 0, 0)
Image3.Picture = LoadPicture(App.Path & "\" & x & "2images.jpg", 0, 0)
'If x = 3 Then x = 0 'эта строка уже не нужна
Else
...
                        