Про shift не заметил что ты уже решил, извиняй =)
Цитата:
Raven B.:
я проверяю есть ли еще какие то открытые формы. Если нету - ее надо снова открыть или не позволить ей закрытся
|
Пиши так:
Код:
Private Sub Form_Unload(Cancel As Integer)
Cancel = (Forms.Count <= 1)
End Sub