MDI - VB

Public Cnt As Integer

Begin VB.Form Form1
   Caption         =   "Form1"
   ...
   MDIChild        =   -1  'True
   ...
End
...
Private Sub Form_Load()
    Cnt = Cnt + 1
    Me.Caption = "새문서" & Cnt
End Sub

Begin VB.MDIForm MDIForm1
   BackColor       =   &H8000000C&
   ...
   Begin VB.Menu mnuFile
      Caption         =   "파일(&F)"
      Begin VB.Menu mnuNewFile
         Caption         =   "새로 만들기(&N)"
      End
      Begin VB.Menu mnuLine
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit
         Caption         =   "종료(&X)"
      End
   End
End
...
Private Sub mnuExit_Click()
    Unload Me
'    End
End Sub

Private Sub mnuNewFile_Click()
    Dim NewDocument As New Form1
   
    NewDocument.Show
End Sub