'== (c) by Valery V Shmeleff  Moscow/Russia  www.oflameron.ru ==
Private Sub Label7_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label7.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 0 'Маркер в ячейке, соответствующей  savecolor(0)
End Sub
Private Sub Label8_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки 
If firstset = 0 Then Label8.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 1 'Маркер в ячейке, соответствующей  savecolor(1)
End Sub
Private Sub Label9_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label9.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 2 'Маркер в ячейке, соответствующей  savecolor(2)
End Sub
Private Sub Label10_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label10.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 3 'Маркер в ячейке, соответствующей  savecolor(3)
End Sub
Private Sub Label11_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label11.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 4 'Маркер в ячейке, соответствующей  savecolor(4)
End Sub
Private Sub Label12_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label12.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 5 'Маркер в ячейке, соответствующей  savecolor(5)
End Sub
Private Sub Label13_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label13.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 6 'Маркер в ячейке, соответствующей  savecolor(6)
End Sub
Private Sub Label14_Click()
If firstset = 0 Then Save_Color 'Запомнить цвет фона всех ячеек нижней строки
If firstset = 0 Then Label14.BackColor = &HFF0000 'Маркер СИНЕГО цвета
If firstset = 0 Then firstset = 1 'Больше не обрабатывать
markersave = 7 'Маркер в ячейке, соответствующей  savecolor(7)
End Sub
Private Sub Save_Color()
savecolor(0) = Label7.BackColor 'Запомнить предыдущий цвет фона Label7
savecolor(1) = Label8.BackColor 'Запомнить предыдущий цвет фона Label8
savecolor(2) = Label9.BackColor 'Запомнить предыдущий цвет фона Label9
savecolor(3) = Label10.BackColor 'Запомнить предыдущий цвет фона Label10
savecolor(4) = Label11.BackColor 'Запомнить предыдущий цвет фона Label11
savecolor(5) = Label12.BackColor 'Запомнить предыдущий цвет фона Label12
savecolor(6) = Label13.BackColor 'Запомнить предыдущий цвет фона Label13
savecolor(7) = Label14.BackColor 'Запомнить предыдущий цвет фона Label14

End Sub