MDI

MDI에서 특정 자식창을 하나만 띄우기

Public Sub OpenDlg() Dim frm As Form ' 존재할 경우 존재하는 폼을 활성화 For Each frm In Forms If TypeOf frm Is frmChild Then frm.SetFocus Exit Sub End If Next frm ' 존재하지 않을 경우 새로 만든다. Set frm = New frmChild frm.Show End Sub