VERSION 5.00 Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx" Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Begin VB.Form frmShape Caption = "VW-Shape" ClientHeight = 9630 ClientLeft = 60 ClientTop = 345 ClientWidth = 15240 ClipControls = 0 'False LinkTopic = "Form4" MDIChild = -1 'True ScaleHeight = 9630 ScaleWidth = 15240 WindowState = 2 'Maximiert Begin VB.Frame Frame2 BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 4215 Left = 4620 TabIndex = 15 Top = 3045 Width = 10425 Begin VWSLanguageLib.VWSIndex VWSIndex15 Height = 255 Left = 120 Top = -15 Width = 3060 _cx = 5397 _cy = 450 BackStyle = 1 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Farben" End Begin VWSLanguageLib.VWSIndex VWSIndex14 Height = 345 Left = 4170 Top = 3840 Width = 1470 _cx = 2593 _cy = 609 BackStyle = 0 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Fill" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Value" End Begin VisiWinStudioLib.VWSVarOut VWSVarOut1 Height = 225 Left = 5685 Top = 3900 Width = 1170 _cx = 2064 _cy = 397 BackStyle = 0 Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 Format = 0 DecPoint = 0 Enabled = -1 'True AddText = "" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483640 VWItem = "Simulation.Shape" Blink = 0 IndexGroup = "" FontClass = "" UnitConversion = 0 RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSShape VWSShape9 Height = 1635 Left = 5310 Top = 345 Width = 4785 _cx = 8440 _cy = 2884 Enabled = -1 'True BitNumber = 0 BorderColor = 0 BorderWidth = 1 FillColor8 = 0 FillColor1 = 12648447 FillColor2 = 8454143 FillColor3 = 65535 FillColor4 = 49344 FillColor5 = 32896 FillColor6 = 16448 FillColor7 = 8421504 FillColorOff = 12632256 Mode = 1 Offset = 0 Range = 6 Shape = 2 State = 0 Blink = 0 BlinkColor = 16776960 VWItem = "Simulation.Shape" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSShape VWSShape8 Height = 1635 Left = 5310 Top = 2130 Width = 4785 _cx = 8440 _cy = 2884 Enabled = -1 'True BitNumber = 0 BorderColor = 0 BorderWidth = 1 FillColor8 = 0 FillColor1 = 16777152 FillColor2 = 16777088 FillColor3 = 16776960 FillColor4 = 12632064 FillColor5 = 8421376 FillColor6 = 4210688 FillColor7 = 8421504 FillColorOff = 12632256 Mode = 1 Offset = 0 Range = 6 Shape = 8 State = 0 Blink = 0 BlinkColor = 16776960 VWItem = "Simulation.Shape" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSShape VWSShape7 Height = 1635 Left = 270 Top = 2130 Width = 4785 _cx = 8440 _cy = 2884 Enabled = -1 'True BitNumber = 0 BorderColor = 0 BorderWidth = 1 FillColor8 = 0 FillColor1 = 12648384 FillColor2 = 8454016 FillColor3 = 65280 FillColor4 = 49152 FillColor5 = 32768 FillColor6 = 16384 FillColor7 = 8421504 FillColorOff = 12632256 Mode = 1 Offset = 0 Range = 6 Shape = 5 State = 0 Blink = 0 BlinkColor = 16776960 VWItem = "Simulation.Shape" RecipeMember = 0 'False End Begin VisiWinStudioLib.VWSShape VWSShape6 Height = 1635 Left = 270 Top = 345 Width = 4785 _cx = 8440 _cy = 2884 Enabled = -1 'True BitNumber = 0 BorderColor = 0 BorderWidth = 1 FillColor8 = 0 FillColor1 = 12632319 FillColor2 = 8421631 FillColor3 = 255 FillColor4 = 192 FillColor5 = 128 FillColor6 = 64 FillColor7 = 8421504 FillColorOff = 12632256 Mode = 1 Offset = 0 Range = 6 Shape = 0 State = 0 Blink = 0 BlinkColor = 16776960 VWItem = "Simulation.Shape" RecipeMember = 0 'False End End Begin VB.Frame Frame1 BeginProperty Font Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 8760 Left = 165 TabIndex = 1 Top = 660 Width = 4170 Begin VB.OptionButton Option13 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 14 Top = 4080 Width = 195 End Begin VB.OptionButton Option12 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 13 Top = 3780 Width = 195 End Begin VB.OptionButton Option11 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 12 Top = 3480 Width = 195 End Begin VB.OptionButton Option10 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 11 Top = 3180 Width = 195 End Begin VB.OptionButton Option9 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 10 Top = 2880 Width = 195 End Begin VB.OptionButton Option8 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 9 Top = 2580 Width = 195 End Begin VB.OptionButton Option7 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 8 Top = 2280 Width = 195 End Begin VB.OptionButton Option6 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 7 Top = 1980 Width = 195 End Begin VB.OptionButton Option5 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 6 Top = 1680 Width = 195 End Begin VB.OptionButton Option4 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 5 Top = 1380 Width = 195 End Begin VB.OptionButton Option3 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 4 Top = 1080 Width = 195 End Begin VB.OptionButton Option2 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 3 Top = 780 Width = 195 End Begin VB.OptionButton Option1 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 90 TabIndex = 2 Top = 480 Value = -1 'True Width = 195 End Begin VWSLanguageLib.VWSIndex VWSIndex24 Height = 255 Left = 120 Top = -15 Width = 1800 _cx = 3175 _cy = 450 BackStyle = 1 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 700 Underline = -1 'True Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Formen" End Begin VWSLanguageLib.VWSIndex VWSIndex13 Height = 270 Left = 360 Top = 4050 Width = 1980 _cx = 3492 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiOR" End Begin VWSLanguageLib.VWSIndex VWSIndex12 Height = 270 Left = 360 Top = 3750 Width = 1830 _cx = 3228 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiOL" End Begin VWSLanguageLib.VWSIndex VWSIndex11 Height = 270 Left = 360 Top = 3450 Width = 2025 _cx = 3572 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiUR" End Begin VWSLanguageLib.VWSIndex VWSIndex10 Height = 270 Left = 360 Top = 3150 Width = 1905 _cx = 3360 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiUL" End Begin VWSLanguageLib.VWSIndex VWSIndex9 Height = 270 Left = 360 Top = 2850 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiL" End Begin VWSLanguageLib.VWSIndex VWSIndex8 Height = 270 Left = 360 Top = 2550 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiR" End Begin VWSLanguageLib.VWSIndex VWSIndex7 Height = 270 Left = 360 Top = 2250 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiU" End Begin VWSLanguageLib.VWSIndex VWSIndex6 Height = 270 Left = 360 Top = 1950 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "DreiO" End Begin VWSLanguageLib.VWSIndex VWSIndex5 Height = 270 Left = 360 Top = 1650 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Quadrat" End Begin VWSLanguageLib.VWSIndex VWSIndex4 Height = 270 Left = 360 Top = 1350 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Ellipse" End Begin VWSLanguageLib.VWSIndex VWSIndex3 Height = 270 Left = 360 Top = 1050 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Kreis" End Begin VWSLanguageLib.VWSIndex VWSIndex2 Height = 270 Left = 360 Top = 750 Width = 2220 _cx = 3916 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "RechtRund" End Begin VWSLanguageLib.VWSIndex VWSIndex1 Height = 270 Left = 360 Top = 450 Width = 1530 _cx = 2699 _cy = 476 BackStyle = 0 Enabled = -1 'True Alignment = 1 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483643 BackColorOn = -2147483643 ForeColorOff = -2147483640 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "Shape" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Recht" End Begin VisiWinStudioLib.VWSShape VWSShape1 Height = 3870 Left = 225 Top = 4665 Width = 3690 _cx = 6509 _cy = 6826 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 = 15769650 Mode = 0 Offset = 0 Range = 1 Shape = 0 State = 0 Blink = 0 BlinkColor = 16776960 VWItem = "" RecipeMember = 0 'False End End Begin VB.Label Label14 Alignment = 2 'Zentriert BackColor = &H00E3E3E3& Caption = "VWSShape-Control" BeginProperty Font Name = "Tahoma" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00DE8800& Height = 315 Left = 60 TabIndex = 0 Top = 90 Width = 15195 End End Attribute VB_Name = "frmShape" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Option1_Click() VWSShape1.Shape = 0 End Sub Private Sub Option2_Click() VWSShape1.Shape = 1 End Sub Private Sub Option3_Click() VWSShape1.Shape = 2 End Sub Private Sub Option4_Click() VWSShape1.Shape = 3 End Sub Private Sub Option5_Click() VWSShape1.Shape = 4 End Sub Private Sub Option6_Click() VWSShape1.Shape = 5 End Sub Private Sub Option7_Click() VWSShape1.Shape = 6 End Sub Private Sub Option8_Click() VWSShape1.Shape = 7 End Sub Private Sub Option9_Click() VWSShape1.Shape = 8 End Sub Private Sub Option10_Click() VWSShape1.Shape = 9 End Sub Private Sub Option11_Click() VWSShape1.Shape = 10 End Sub Private Sub Option12_Click() VWSShape1.Shape = 11 End Sub Private Sub Option13_Click() VWSShape1.Shape = 12 End Sub Private Sub VWSIndex1_Click() Option1.Value = True End Sub Private Sub VWSIndex2_Click() Option2.Value = True End Sub Private Sub VWSIndex3_Click() Option3.Value = True End Sub Private Sub VWSIndex4_Click() Option4.Value = True End Sub Private Sub VWSIndex5_Click() Option5.Value = True End Sub Private Sub VWSIndex6_Click() Option6.Value = True End Sub Private Sub VWSIndex7_Click() Option7.Value = True End Sub Private Sub VWSIndex8_Click() Option8.Value = True End Sub Private Sub VWSIndex9_Click() Option9.Value = True End Sub Private Sub VWSIndex10_Click() Option10.Value = True End Sub Private Sub VWSIndex11_Click() Option11.Value = True End Sub Private Sub VWSIndex12_Click() Option12.Value = True End Sub Private Sub VWSIndex13_Click() Option13.Value = True End Sub