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