Label8.BackColor = savecolor(1) 'Восстановить цвет ячейки, где БЫЛ маркер

Label9_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

If markersave = 2 Then

markersave = 3 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label9.BackColor = savecolor(2) 'Восстановить цвет ячейки, где БЫЛ маркер

Label10_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

If markersave = 3 Then

markersave = 4 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label10.BackColor = savecolor(3) 'Восстановить цвет ячейки, где БЫЛ маркер

Label11_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

If markersave = 4 Then

markersave = 5 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label11.BackColor = savecolor(4) 'Восстановить цвет ячейки, где БЫЛ маркер

Label12_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

If markersave = 5 Then

markersave = 6 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label12.BackColor = savecolor(5) 'Восстановить цвет ячейки, где БЫЛ маркер

Label13_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

If markersave = 6 Then

markersave = 7 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label13.BackColor = savecolor(6) 'Восстановить цвет ячейки, где БЫЛ маркер

Label14_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

If markersave = 7 Then

markersave = 0 'Переместить правее (т.к. значение > на 1)

firstset = 0 'Временно разрешить рисование маркера

Label14.BackColor = savecolor(7) 'Восстановить цвет ячейки, где БЫЛ маркер

Label7_Click 'Переместить маркер

vt = markersave

markersave = 10 'Запретить ложные срабатывания (значение 10 не соответствует

‘никакой ячейке)

End If

markersave = vt

n = 0

Set_Marker_Count

End Sub

Теперь нужно сделать всего одну процедуру – процедуру сдвига нумерации текущих игровых уровней:

Private Sub Level_Count()

Label6.Caption = Label6.Caption + 1

Label5.Caption = Label6.Caption + 1

Label4.Caption = Label5.Caption + 1

Label3.Caption = Label4.Caption + 1

Label2.Caption = Label3.Caption + 1

End Sub

Подключим процедуру сдвига слоев к работе, например так:

Private Sub Dn_Count()

'Подсчитывать очки при сдвиге сверху вниз

n = 0

Set_Marker_Count

Level_Count 'Сдвинуть уровни Level

End Sub

Полный VB-проект с этого этапа разработки игры - в файле vbg8.zip

Показательный момент – написаны все процедуры для software-реализации игры Oflameron. Т.е. Вы создали совершенно работоспособную игровую программу на Visual Basic. Представлять ее как коммерческий продукт рано – еще много «шероховатостей». Например, если Click-нуть на объекте Frame, то игра начнется без установки маркера.