Attribute VB_Name = "MVisiWinStudio"
Option Explicit

Public OpenedForm As Object


'Version 4.03.000



Public Sub EndProgram()
  Dim frm As Form

  FStart.Show
  DoEvents
  'Alle geladen Formulare bis auf das Startformular entladen
  For Each frm In Forms
    If Not frm Is FStart Then
      Unload frm
      DoEvents
    End If
  Next frm
  'Im ProjectShutdownFinished-Ereignis des VWSApplication-Objektes im Startformular
  'ist dann wirklich Schluss.
  FStart.VWStart1.ShutdownApplication
End Sub


Public Sub ShutDownWindows()
  Dim frm As Form

  'Alle geladen Formulare bis auf das Startformular entladen
  For Each frm In Forms
    If Not frm Is FStart Then
      Unload frm
    End If
  Next frm

  'Windows beenden über das VWStart-Objekt:
  'Dadurch wird zuerst die Prozessdatenbank inkl. Treiberprogramme beendet.
  FStart.VWStart1.ShutDownWindows False, True
  '1.Parameter: True=Windows neu starten.
  '             False=Windows beenden.
  '2.Parameter: True=Force Shutdown=Windows beenden, auch wenn sich andere
  '                  Programm weigern, zu beenden.
  '             False=normales Shutdown, andere Programm können das Shutdown verhindern.
End Sub