'== (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