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