VERSION 5.00 Begin VB.Form frmSplash BackColor = &H00FF8080& BorderStyle = 0 'Kein Caption = "Pruef2000" ClientHeight = 4725 ClientLeft = 210 ClientTop = 1365 ClientWidth = 7350 ClipControls = 0 'False ControlBox = 0 'False Icon = "frmSplash.frx":0000 KeyPreview = -1 'True LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 315 ScaleMode = 3 'Pixel ScaleWidth = 490 ShowInTaskbar = 0 'False StartUpPosition = 2 'Bildschirmmitte Begin VB.PictureBox FXImage1 BackColor = &H00FFFFFF& Height = 4680 Left = 0 ScaleHeight = 4620 ScaleWidth = 7275 TabIndex = 0 Top = 0 Width = 7335 Begin VB.Label Label1 Alignment = 1 'Rechts BackColor = &H00FFFFFF& Caption = "Label1" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 375 Left = 3600 TabIndex = 4 Top = 2250 Width = 3525 End Begin VB.Image Image1 Height = 2205 Left = 120 Picture = "frmSplash.frx":030A Stretch = -1 'True Top = 30 Width = 7200 End Begin VB.Label LabelDoing Alignment = 2 'Zentriert BackStyle = 0 'Transparent Caption = "starting..." BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 585 Left = 270 TabIndex = 3 Top = 2940 Width = 6705 End Begin VB.Label lblCompanyProduct AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Produktname" BeginProperty Font Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 435 Left = 210 TabIndex = 2 Top = 2190 Width = 3495 End Begin VB.Label lblVersion AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Version x.x.x" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 270 Left = 180 TabIndex = 1 Top = 3600 Width = 6885 End End End Attribute VB_Name = "frmSplash" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then ' ESC g_Abbruch = True End If End Sub Private Sub Frame1_Click() Unload Me End Sub