You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

1293 lines
39 KiB
Plaintext

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