VERSION 5.00 Object = "{77D82F10-C844-11CF-9663-006008104BEC}#1.0#0"; "VW4Start.ocx" Begin VB.Form FStart BorderStyle = 0 'Kein ClientHeight = 4740 ClientLeft = 1875 ClientTop = 2145 ClientWidth = 7800 ControlBox = 0 'False Icon = "FStart.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'ZReihenfolge ScaleHeight = 4740 ScaleWidth = 7800 ShowInTaskbar = 0 'False StartUpPosition = 2 'Bildschirmmitte Begin VW4StartLib.VWStart VWStart1 Height = 4740 Left = 0 Top = 0 Width = 7800 _Version = 65536 _ExtentX = 13758 _ExtentY = 8361 _StockProps = 33 ProjectName = "VW4Trend" End End Attribute VB_Name = "FStart" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub VWStart1_InitReady() 'Dieses Ereignis tritt auf, wenn die Prozessdatenbank vollständig 'initialisiert ist und alle Daten gültig sind. FCentral.Show 'Das Hauptformular der Visualisierung wird angezeigt. Me.Hide 'Dieses Formular wird nur versteckt, es darf nicht entladen werden!!! End Sub Private Sub VWStart1_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