VERSION 2.00
Begin Form Form1 
   Caption         =   "Form 0"
   Height          =   4164
   Left            =   1392
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3744
   ScaleWidth      =   6420
   Top             =   2280
   Width           =   6516
   Begin Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "This is a MDI Child Window"
      Height          =   192
      Index           =   2
      Left            =   240
      TabIndex        =   2
      Top             =   1320
      Width           =   2256
   End
   Begin Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "and a floating Toolbar"
      Height          =   192
      Index           =   1
      Left            =   240
      TabIndex        =   1
      Top             =   840
      Width           =   1848
   End
   Begin Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Sample MDI Application with Common Dialogs"
      Height          =   192
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   3828
   End
End

Sub Form_GotFocus ()
   ' Test for Stausline
   Action (" Active Form: " + Me.Caption)
End Sub

Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
    Call ShowPopup(Me, x, y)
End Sub

Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
    ' delete, if this is nagging
   If UnloadMode = 0 Then ' User clicked close-box
    If Not Doit("Close " + Me.Caption + " ?") Then
       Cancel = 1
    End If
   End If
End Sub