home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP33 / 309X3503.TXT < prev    next >
Encoding:
Text File  |  1998-04-29  |  508 b   |  19 lines
  1.  
  2. Public Document() As New frmNotePad     ' Array of child form objects
  3.  
  4. Sub FileNew()
  5.  
  6.    Dim fIndex As Integer
  7.  
  8.    ' Find the next available index and show the child form.
  9.    fIndex = FindFreeIndex()
  10.    Document(fIndex).Tag = fIndex
  11.    Document(fIndex).Caption = "Untitled:" & fIndex
  12.    Document(fIndex).Show
  13.    ' Make sure the toolbar edit buttons are visible.
  14.    frmMDI.imgCutButton.Visible = True
  15.    frmMDI.imgCopyButton.Visible = True
  16.    frmMDI.imgPasteButton.Visible = True
  17.  
  18.  End Sub
  19.