VERSION 5.00 Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx" Begin VB.Form frmBack BorderStyle = 0 'Kein Caption = "Form1" ClientHeight = 3195 ClientLeft = 0 ClientTop = 0 ClientWidth = 4680 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3195 ScaleWidth = 4680 ShowInTaskbar = 0 'False StartUpPosition = 2 'Bildschirmmitte WindowState = 2 'Maximiert Begin VisiWinStudioLib.VWSShape VWSShape1 Height = 1740 Left = 465 Top = 465 Width = 2580 _cx = 4551 _cy = 3069 Enabled = -1 'True BitNumber = 0 BorderColor = 0 BorderWidth = 1 FillColor8 = 0 FillColor1 = 255 FillColor2 = 16711680 FillColor3 = 65280 FillColor4 = 65535 FillColor5 = 16777215 FillColor6 = 16711935 FillColor7 = 8421504 FillColorOff = -2147483633 Mode = 0 Offset = 0 Range = 1 Shape = 0 State = 0 AuthorizationMode= 1 Authorization = "" Blink = 0 BlinkColor = 16776960 VWItem = "" RecipeMember = 0 'False End End Attribute VB_Name = "frmBack" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_GotFocus() On Error Resume Next curFrm.SetFocus End Sub Private Sub Form_Resize() VWSShape1.Width = 15360 + 90 VWSShape1.Height = 11520 + 90 VWSShape1.Left = (Me.Width - VWSShape1.Width) / 2 VWSShape1.Top = (Me.Height - VWSShape1.Height) / 2 End Sub