11
Сентябрь
2008
Выгрузка всех форм
Вы используете в программе не одну форму.
И каждую форму нужно будет выгружать.
А вот так сделать это намного проще, при любом количестве форм:
Option Explicit Private Sub Form_Load() Form2.Visible = True Form3.Visible = True Form4.Visible = True Form5.Visible = True End Sub Private Sub Form_Unload(Cancel As Integer) Dim i As Integer For i = Forms.Count - 1 To 1 Step -1 Unload Forms(i) Next End Sub