VERSION 5.00
Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
Begin VB.Form FStart 
   BorderStyle     =   3  'Fester Dialog
   ClientHeight    =   4740
   ClientLeft      =   1920
   ClientTop       =   2190
   ClientWidth     =   7800
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'ZReihenfolge
   ScaleHeight     =   4740
   ScaleWidth      =   7800
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'Bildschirmmitte
   Begin VisiWinStudioLib.VWSStart VWSStart1 
      Height          =   4755
      Left            =   0
      Top             =   0
      Width           =   7815
      _cx             =   13785
      _cy             =   8387
      BackColor       =   -2147483633
      ShadowColor1    =   -2147483632
      ShadowColor2    =   -2147483634
      ShadowDepth     =   2
      ShadowStyle     =   0
      Picture         =   "FStart.frx":0000
      StartDelay      =   1
      ProjectName     =   "%ProjectName%"
      AutoSize        =   -1  'True
      DisableWindowsKeys=   0   'False
      OpaqueContent   =   -1  'True
   End
End
Attribute VB_Name = "FStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'Startformular des Projekts:
'- Darf nicht entfernt werden
'- Darf zur Laufzeit nicht entladen werden (kein Unload, nur Hide)
'- Muss in den VB-Projekteigenschaften als Startobjekt eingetragen sein


Private Sub VWSStart1_InitReady(ByVal Success As Boolean)
    'Dieses Ereignis tritt auf, wenn die Prozessdatenbank vollständig
    'initialisiert ist und alle Daten gültig sind.
    
    If Success Then
        'Hier weitere Initialisierungen einfügen
        
        FCentral.Show 'Das Hauptformular der Visualisierung wird angezeigt.
        Me.Hide 'Dieses Formular wird nur versteckt, es darf nicht entladen werden!!!
    Else
        MsgBox "Initialisierung fehlgeschlagen!", vbCritical + vbOKOnly
        Unload Me
    End If
End Sub

Private Sub VWSStart1_FinalizeAppShutdown()
    'Die Prozessdatenbank (VWEManager, VWEKernel, Treiber, OPC-Server, ...)
    'wurde ordentlich geschlossen: Jetzt kann auch das Visual Basic Programm beendet werden.
    Unload Me
    End
End Sub