If Not Form1 Is Nothing Then
MsgBox "Она здесь!"
Else
MsgBox "Её нет!"
End If
dim mCol as collection
private sub form_load()
set mCol = new collection
end sub
private sub AddForm()
mcol.add new MDIChild
mcol(mcol.count).show 0
end sub
private sub RemoveForm(byval Index as long)
unload mcol(index)
mcol.remove index
end sub
private sub SetFocusToForm(byval Index as long)
mcol(index).setfocus
end sub
Сейчас этот форум просматривают: Yandex-бот и гости: 2