'== (c) by Valery V Shmeleff  Moscow/Russia  www.oflameron.ru ==
Private Sub Up_Str_App()
TM = Time                   'Прочитать текущее время
TTMS = Len(TM)          'Длина строки с временем
TTM = Mid$(TM, 7, 2)   'Выделить секунды

For i = 0 To TTM           'Повторить цикл столько раз, сколько секунд
Next i
'--------------------------------------------------
' Заполнить верхнюю строку массива field(i, 5)
For i = 0 To 7
  field(i, 5) = Int((20 * Rnd) + 1)
Next i
'--------------------------------------------------
'Заполнить верхнюю строку номиналами, копируя их из  Label56

Field_Fill 'Перерисовать значения на экране, с новыми значениями верхней строки
End Sub