VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu FormMenu 
      Caption         =   "窗体"
      Begin VB.Menu ChForm 
         Caption         =   "窗体1"
         Index           =   1
      End
      Begin VB.Menu ChForm 
         Caption         =   "窗体2"
         Index           =   2
      End
      Begin VB.Menu ChForm 
         Caption         =   "窗体3"
         Index           =   3
      End
      Begin VB.Menu ChForm 
         Caption         =   "窗体4"
         Index           =   4
      End
      Begin VB.Menu sp 
         Caption         =   "-"
      End
      Begin VB.Menu Quit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ChForm_Click(Index As Integer)
    Select Case Index
    Case 1
        Form1.Show
    Case 2
        Form2.Show
    Case 3
        Form3.Show
    Case 4
        Form4.Show
 
    End Select
    
End Sub

Private Sub Quit_Click()
       End
End Sub
