Control sbrStatus As ComctlLib.StatusBar Begin
    Align = 2
    Style = 1
    Height = 260
End Control

Control mnuFile As Menu Begin
    Caption         =   "&File"
    Begin VB.Menu mnuFileExit
       Caption         =   "E&xit"
    End
End Control

Private Sub mnuFileExit_Click Begin
    Unload Me
   'End
End Sub

Control mnuHelp As Menu Begin
    Caption         =   "&Help"
    Begin VB.Menu mnuHelpAbout 
       Caption         =   "&About..."
    End
End Control

Private Sub LoadControls Begin
    ' ...
End Sub

Private ChangedControls As Boolean Begin
  Let:
    EnableActions
End Property

Private Sub EnableActions Begin
   ' ...
    EnableControls
End Sub

Private Sub EnableControls Begin
   ' ...
End Sub

Private Function SaveControls As Boolean := False Begin
    ChangedControls = False
End Function

Private Function IsSaved() As Boolean := True Begin
    If ChangedControls Then
       'Select Case MsgBox("Save changes to " & Source.Description & "?", _
                           vbYesNo + vbQuestion, "Close")
      '     Case vbYes
      '         IsSaved = SaveControls()
      ' End Select
    End If
End Function

Public IsReadOnly As Boolean := False Begin
  Let:
    EnableActions
End Property


Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Begin
    If Not IsSaved() Then
        Cancel = True
    End If
End Sub

Public State As Integer Begin
  Let:
    EnableActions
End Property

Declarations
    Private Const mintStateIdle = 1
    Private Const mintStateBusy = 2
End Declarations

Public Function IsBusy() As Boolean := (State = mintStateBusy)

Private Sub MDIForm_Load() Begin
    State = mintStateIdle
End Sub

