Закрытие активной формы

[Alex77777]

есть MDIForm ее дочерние формы Form1, Form2, Form3 и т.д. мен нужно чтобы при нажатии строки меню MDIForm закрывалассь активная дочерняя форма.

код несложный

Unload AcniveFom

хвсе работает когда есть открытые дочерние формы, но когда открытых дочерних форм нет этот код пытается закрыть MDIForm, что приводит к ошибке.
Вопрос: как сделать условие, чтобы при нажатии строки меню "файл-закрыть" он закрывал только активный дочерние формы, а саму материнскую MDIForm не трогал.

 

[Tanya]

If Forms.Count > 1 Then
Unload Me.ActiveForm
End If

или более универсальный способ:
If Not Me.ActiveForm Is Nothing Then Unload Me.ActiveForm

т.к. здесь учитывается только активные дочерние окна данной MDIForm

 

[Alex77777]

КЛАСС!!! Все работает так как и хотелось!
ОГРОООООООООМНОЕ СПАСИБО!!!