mdiform1.frm

好用啊

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture2 
      Align           =   2  'Align Bottom
      Height          =   360
      Left            =   0
      ScaleHeight     =   300
      ScaleWidth      =   4620
      TabIndex        =   1
      Top             =   2835
      Width           =   4680
      Begin VB.Label Label2 
         Caption         =   "此处为状态栏"
         Height          =   375
         Left            =   0
         TabIndex        =   3
         Top             =   0
         Width           =   1575
      End
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   375
      Left            =   0
      ScaleHeight     =   315
      ScaleWidth      =   4620
      TabIndex        =   0
      Top             =   0
      Width           =   4680
      Begin VB.Label Label1 
         Caption         =   "此处为工具栏"
         Height          =   255
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   1335
      End
   End
   Begin VB.Menu N 
      Caption         =   "MDI窗体菜单"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    Dim frmArray() As New Form1
    Dim frmNumber As Integer
Private Sub Picture1_Click()
    frmNumber = frmNumber + 1
    ReDim Preserve frmArray(frmNumber)
    frmArray(frmNumber).Caption = "文档" & CStr(frmNumber)
    frmArray(frmNumber).Show
End Sub