'Option RTFM On
'avtor kurit horoshuju travu! (c) somebody
For i = Forms.Count - 1 To 1 Step -1
If Forms(i).Name <> "[имя выгружающей формы]" Then Unload Forms(i)
Dim cx As Control
'остановка таймеров
For Each cx In Forms(i).Controls
If TypeOf cx Is Timer And cx.Enabled Then cx.Enabled = False
Next cx
Next
Unload Me
Постараюсь больше не фтрм"мить!![]()
Сейчас этот форум просматривают: Yandex-бот и гости: 4