VERSION 5.00
Object = "{77D82F10-C844-11CF-9663-006008104BEC}#1.0#0"; "VW4start.ocx"
Object = "{78815946-D53B-11D2-A008-006008104BEC}#1.0#0"; "VW4TouchControl.ocx"
Begin VB.Form FStart 
   BorderStyle     =   3  'Fester Dialog
   Caption         =   "VisiWinStudio VW4Language"
   ClientHeight    =   4740
   ClientLeft      =   1920
   ClientTop       =   2475
   ClientWidth     =   7800
   ControlBox      =   0   'False
   Icon            =   "FStart.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'ZReihenfolge
   ScaleHeight     =   4740
   ScaleWidth      =   7800
   StartUpPosition =   2  'Bildschirmmitte
   Begin VW4TouchControlLib.VWTouchCtrl VWTouchCtrl1 
      Left            =   960
      Top             =   3660
      _Version        =   65536
      _ExtentX        =   767
      _ExtentY        =   767
      _StockProps     =   0
      ActivationMode  =   2
      ShowLimits      =   -1  'True
      KeySize         =   1,2
      Position        =   0
   End
   Begin VW4StartLib.VWStart VWStart1 
      Height          =   4740
      Left            =   0
      Top             =   0
      Width           =   7800
      _Version        =   65536
      _ExtentX        =   13758
      _ExtentY        =   8361
      _StockProps     =   33
      ProjectName     =   "VW4Language"
      AuthorizationLevel=   0
   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.
    
    'VWDialogs-Bibliothek mit dieser Applikation verbinden (optional)
    VW4Dialogs.SetHostApp App
    
    'VWDialogs-Schaltflächen auf eine Mindesthöhe einstellen (optional)
    VW4Dialogs.ButtonMinHeight = 700
    
    'Bildschirmtastatur aktivieren
    VWTouchCtrl1.AppThreadID = App.ThreadID
    
    'Benutzer als Kundenadministrator anlegen
    VWStart1.SetCustomerSU "xxx", "", "xxx", 99, 1
    
    'Das Hauptbild der Visualisierung wird angezeigt.
    FCentral.Show
    Me.Hide
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