Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Спасибо всем, вот что получилось после применения Ваших советов...
Dim ctl As Control Dim f As Integer f = 1 For Each ctl In Me.Controls If ctl.Name = "s" & f Then ctl.Width = Me!razmer ctl.Height = Me!razmer f = f + 1 End If Next
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.