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.UserControl VWButton ClientHeight = 660 ClientLeft = 0 ClientTop = 0 ClientWidth = 7560 LockControls = -1 'True ScaleHeight = 660 ScaleWidth = 7560 Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 0 Left = 0 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text1" End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 0 Left = 0 TabIndex = 0 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 1 Left = 630 TabIndex = 1 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 2 Left = 1260 TabIndex = 2 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 3 Left = 1890 TabIndex = 3 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 4 Left = 2520 TabIndex = 4 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 5 Left = 3150 TabIndex = 5 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 6 Left = 3780 TabIndex = 6 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 7 Left = 4410 TabIndex = 7 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 8 Left = 5040 TabIndex = 8 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 9 Left = 5670 TabIndex = 9 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 10 Left = 6300 TabIndex = 10 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey Button Height = 480 Index = 11 Left = 6930 TabIndex = 11 Top = 180 Width = 630 _cx = 5080 _cy = 5080 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 1 Left = 630 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text2" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 2 Left = 1260 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text3" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 3 Left = 1890 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text4" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 4 Left = 2520 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text5" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 5 Left = 3150 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text6" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 6 Left = 3780 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text7" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 7 Left = 4410 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text8" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 8 Left = 5040 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text9" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 9 Left = 5670 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text10" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 10 Left = 6300 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text11" End Begin VWSLanguageLib.VWSIndex Text Height = 180 Index = 11 Left = 6930 Top = 0 Width = 630 _cx = 5080 _cy = 5080 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483633 ForeColorOff = -2147483640 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "Text12" End End Attribute VB_Name = "VWButton" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit 'Ereignisdeklarationen: Event Button1Click() 'MappingInfo=Button(0),Button,0,Click Event Button2Click() 'MappingInfo=Button(1),Button,1,Click Event Button3Click() 'MappingInfo=Button(2),Button,2,Click Event Button4Click() 'MappingInfo=Button(3),Button,3,Click Event Button5Click() 'MappingInfo=Button(4),Button,4,Click Event Button6Click() 'MappingInfo=Button(5),Button,5,Click Event Button7Click() 'MappingInfo=Button(6),Button,6,Click Event Button8Click() 'MappingInfo=Button(7),Button,7,Click Event Button9Click() 'MappingInfo=Button(8),Button,8,Click Event Button10Click() 'MappingInfo=Button(9),Button,9,Click Event Button11Click() 'MappingInfo=Button(10),Button,10,Click Event Button12Click() 'MappingInfo=Button(11),Button,11,Click Private Sub Button_Click(Index As Integer) Select Case Index Case 0 RaiseEvent Button1Click Case 1 RaiseEvent Button2Click Case 2 RaiseEvent Button3Click Case 3 RaiseEvent Button4Click Case 4 RaiseEvent Button5Click Case 5 RaiseEvent Button6Click Case 6 RaiseEvent Button7Click Case 7 RaiseEvent Button8Click Case 8 RaiseEvent Button9Click Case 9 RaiseEvent Button10Click Case 10 RaiseEvent Button11Click Case 11 RaiseEvent Button12Click End Select End Sub Public Property Get Picture1() As Picture Set Picture1 = Button(0).Picture End Property Public Property Set Picture1(ByVal New_Picture1 As Picture) Set Button(0).Picture = New_Picture1 PropertyChanged "Picture1" End Property Public Property Get Picture2() As Picture Set Picture2 = Button(1).Picture End Property Public Property Set Picture2(ByVal New_Picture2 As Picture) Set Button(1).Picture = New_Picture2 PropertyChanged "Picture2" End Property Public Property Get Picture3() As Picture Set Picture3 = Button(2).Picture End Property Public Property Set Picture3(ByVal New_Picture3 As Picture) Set Button(2).Picture = New_Picture3 PropertyChanged "Picture3" End Property Public Property Get Picture4() As Picture Set Picture4 = Button(3).Picture End Property Public Property Set Picture4(ByVal New_Picture4 As Picture) Set Button(3).Picture = New_Picture4 PropertyChanged "Picture4" End Property Public Property Get Picture5() As Picture Set Picture5 = Button(4).Picture End Property Public Property Set Picture5(ByVal New_Picture5 As Picture) Set Button(4).Picture = New_Picture5 PropertyChanged "Picture5" End Property Public Property Get Picture6() As Picture Set Picture6 = Button(5).Picture End Property Public Property Set Picture6(ByVal New_Picture6 As Picture) Set Button(5).Picture = New_Picture6 PropertyChanged "Picture6" End Property Public Property Get Picture7() As Picture Set Picture7 = Button(6).Picture End Property Public Property Set Picture7(ByVal New_Picture7 As Picture) Set Button(6).Picture = New_Picture7 PropertyChanged "Picture7" End Property Public Property Get Picture8() As Picture Set Picture8 = Button(7).Picture End Property Public Property Set Picture8(ByVal New_Picture8 As Picture) Set Button(7).Picture = New_Picture8 PropertyChanged "Picture8" End Property Public Property Get Picture9() As Picture Set Picture9 = Button(8).Picture End Property Public Property Set Picture9(ByVal New_Picture9 As Picture) Set Button(8).Picture = New_Picture9 PropertyChanged "Picture9" End Property Public Property Get Picture10() As Picture Set Picture10 = Button(9).Picture End Property Public Property Set Picture10(ByVal New_Picture10 As Picture) Set Button(9).Picture = New_Picture10 PropertyChanged "Picture10" End Property Public Property Get Picture11() As Picture Set Picture11 = Button(10).Picture End Property Public Property Set Picture11(ByVal New_Picture11 As Picture) Set Button(10).Picture = New_Picture11 PropertyChanged "Picture11" End Property Public Property Get Picture12() As Picture Set Picture12 = Button(11).Picture End Property Public Property Set Picture12(ByVal New_Picture12 As Picture) Set Button(11).Picture = New_Picture12 PropertyChanged "Picture12" End Property ''Eigenschaftenwerte vom Speicher laden Private Sub UserControl_ReadProperties(PropBag As PropertyBag) Set Button(0).Picture = PropBag.ReadProperty("Picture1", Nothing) Set Button(1).Picture = PropBag.ReadProperty("Picture2", Nothing) Set Button(2).Picture = PropBag.ReadProperty("Picture3", Nothing) Set Button(3).Picture = PropBag.ReadProperty("Picture4", Nothing) Set Button(4).Picture = PropBag.ReadProperty("Picture5", Nothing) Set Button(5).Picture = PropBag.ReadProperty("Picture6", Nothing) Set Button(6).Picture = PropBag.ReadProperty("Picture7", Nothing) Set Button(7).Picture = PropBag.ReadProperty("Picture8", Nothing) Set Button(8).Picture = PropBag.ReadProperty("Picture9", Nothing) Set Button(9).Picture = PropBag.ReadProperty("Picture10", Nothing) Set Button(10).Picture = PropBag.ReadProperty("Picture11", Nothing) Set Button(11).Picture = PropBag.ReadProperty("Picture12", Nothing) Set Text(0).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(1).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(2).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(3).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(4).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(5).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(6).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(7).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(8).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(9).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(10).Font = PropBag.ReadProperty("Font", Ambient.Font) Set Text(11).Font = PropBag.ReadProperty("Font", Ambient.Font) Text(0).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(1).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(2).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(3).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(4).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(5).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(6).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(7).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(8).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(9).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(10).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(11).IndexGroup = PropBag.ReadProperty("IndexGroup", "") Text(0).TextOff = PropBag.ReadProperty("Text1", "Text") Text(1).TextOff = PropBag.ReadProperty("Text2", "Text") Text(2).TextOff = PropBag.ReadProperty("Text3", "Text") Text(3).TextOff = PropBag.ReadProperty("Text4", "Text") Text(4).TextOff = PropBag.ReadProperty("Text5", "Text") Text(5).TextOff = PropBag.ReadProperty("Text6", "Text") Text(6).TextOff = PropBag.ReadProperty("Text7", "Text") Text(7).TextOff = PropBag.ReadProperty("Text8", "Text") Text(8).TextOff = PropBag.ReadProperty("Text9", "Text") Text(9).TextOff = PropBag.ReadProperty("Text10", "Text") Text(10).TextOff = PropBag.ReadProperty("Text11", "Text") Text(11).TextOff = PropBag.ReadProperty("Text12", "Text") UserControl.BorderStyle = PropBag.ReadProperty("BorderStyle", 0) End Sub 'Eigenschaftenwerte in den Speicher schreiben Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("Picture1", Button(0).Picture, Nothing) Call PropBag.WriteProperty("Picture2", Button(1).Picture, Nothing) Call PropBag.WriteProperty("Picture3", Button(2).Picture, Nothing) Call PropBag.WriteProperty("Picture4", Button(3).Picture, Nothing) Call PropBag.WriteProperty("Picture5", Button(4).Picture, Nothing) Call PropBag.WriteProperty("Picture6", Button(5).Picture, Nothing) Call PropBag.WriteProperty("Picture7", Button(6).Picture, Nothing) Call PropBag.WriteProperty("Picture8", Button(7).Picture, Nothing) Call PropBag.WriteProperty("Picture9", Button(8).Picture, Nothing) Call PropBag.WriteProperty("Picture10", Button(9).Picture, Nothing) Call PropBag.WriteProperty("Picture11", Button(10).Picture, Nothing) Call PropBag.WriteProperty("Picture12", Button(11).Picture, Nothing) Call PropBag.WriteProperty("Font", Text(0).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(1).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(2).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(3).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(4).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(5).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(6).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(7).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(8).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(9).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(10).Font, Ambient.Font) Call PropBag.WriteProperty("Font", Text(11).Font, Ambient.Font) Call PropBag.WriteProperty("IndexGroup", Text(0).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(1).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(2).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(3).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(4).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(5).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(6).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(7).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(8).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(9).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(10).IndexGroup, "") Call PropBag.WriteProperty("IndexGroup", Text(11).IndexGroup, "") Call PropBag.WriteProperty("Text1", Text(0).TextOff, "Text") Call PropBag.WriteProperty("Text2", Text(1).TextOff, "Text") Call PropBag.WriteProperty("Text3", Text(2).TextOff, "Text") Call PropBag.WriteProperty("Text4", Text(3).TextOff, "Text") Call PropBag.WriteProperty("Text5", Text(4).TextOff, "Text") Call PropBag.WriteProperty("Text6", Text(5).TextOff, "Text") Call PropBag.WriteProperty("Text7", Text(6).TextOff, "Text") Call PropBag.WriteProperty("Text8", Text(7).TextOff, "Text") Call PropBag.WriteProperty("Text9", Text(8).TextOff, "Text") Call PropBag.WriteProperty("Text10", Text(9).TextOff, "Text") Call PropBag.WriteProperty("Text11", Text(10).TextOff, "Text") Call PropBag.WriteProperty("Text12", Text(11).TextOff, "Text") Call PropBag.WriteProperty("BorderStyle", UserControl.BorderStyle, 0) End Sub Private Sub UserControl_Resize() Dim bCount As Byte Do Text(bCount).Height = UserControl.Height * 180 / 660 If Text(bCount).Height > 315 Then Text(bCount).Height = 315 Text(bCount).Width = UserControl.Width / 12 Text(bCount).Left = Text(bCount).Width * bCount Button(bCount).Top = Text(bCount).Height Button(bCount).Height = UserControl.Height - Text(bCount).Height Button(bCount).Width = UserControl.Width / 12 Button(bCount).Left = Button(bCount).Width * bCount bCount = bCount + 1 Loop Until bCount = 12 End Sub Public Property Get Font() As Font Set Font = Text(0).Font Set Font = Text(1).Font Set Font = Text(2).Font Set Font = Text(3).Font Set Font = Text(4).Font Set Font = Text(5).Font Set Font = Text(6).Font Set Font = Text(7).Font Set Font = Text(8).Font Set Font = Text(9).Font Set Font = Text(10).Font Set Font = Text(11).Font End Property Public Property Set Font(ByVal New_Font As Font) Set Text(0).Font = New_Font Set Text(1).Font = New_Font Set Text(2).Font = New_Font Set Text(3).Font = New_Font Set Text(4).Font = New_Font Set Text(5).Font = New_Font Set Text(6).Font = New_Font Set Text(7).Font = New_Font Set Text(8).Font = New_Font Set Text(9).Font = New_Font Set Text(10).Font = New_Font Set Text(11).Font = New_Font PropertyChanged "Font" End Property Public Property Get IndexGroup() As String IndexGroup = Text(0).IndexGroup IndexGroup = Text(1).IndexGroup IndexGroup = Text(2).IndexGroup IndexGroup = Text(3).IndexGroup IndexGroup = Text(4).IndexGroup IndexGroup = Text(5).IndexGroup IndexGroup = Text(6).IndexGroup IndexGroup = Text(7).IndexGroup IndexGroup = Text(8).IndexGroup IndexGroup = Text(9).IndexGroup IndexGroup = Text(10).IndexGroup IndexGroup = Text(11).IndexGroup End Property Public Property Let IndexGroup(ByVal New_IndexGroup As String) Text(0).IndexGroup() = New_IndexGroup Text(1).IndexGroup() = New_IndexGroup Text(2).IndexGroup() = New_IndexGroup Text(3).IndexGroup() = New_IndexGroup Text(4).IndexGroup() = New_IndexGroup Text(5).IndexGroup() = New_IndexGroup Text(6).IndexGroup() = New_IndexGroup Text(7).IndexGroup() = New_IndexGroup Text(8).IndexGroup() = New_IndexGroup Text(9).IndexGroup() = New_IndexGroup Text(10).IndexGroup() = New_IndexGroup Text(11).IndexGroup() = New_IndexGroup PropertyChanged "IndexGroup" End Property Public Property Get Text1() As String Text1 = Text(0).TextOff End Property Public Property Let Text1(ByVal New_Text1 As String) Text(0).TextOff() = New_Text1 PropertyChanged "Text1" End Property Public Property Get Text2() As String Text2 = Text(1).TextOff End Property Public Property Let Text2(ByVal New_Text2 As String) Text(1).TextOff() = New_Text2 PropertyChanged "Text2" End Property Public Property Get Text3() As String Text3 = Text(2).TextOff End Property Public Property Let Text3(ByVal New_Text3 As String) Text(2).TextOff() = New_Text3 PropertyChanged "Text3" End Property Public Property Get Text4() As String Text4 = Text(3).TextOff End Property Public Property Let Text4(ByVal New_Text4 As String) Text(3).TextOff() = New_Text4 PropertyChanged "Text4" End Property Public Property Get Text5() As String Text5 = Text(4).TextOff End Property Public Property Let Text5(ByVal New_Text5 As String) Text(4).TextOff() = New_Text5 PropertyChanged "Text5" End Property Public Property Get Text6() As String Text6 = Text(5).TextOff End Property Public Property Let Text6(ByVal New_Text6 As String) Text(5).TextOff() = New_Text6 PropertyChanged "Text6" End Property Public Property Get Text7() As String Text7 = Text(6).TextOff End Property Public Property Let Text7(ByVal New_Text7 As String) Text(6).TextOff() = New_Text7 PropertyChanged "Text7" End Property Public Property Get Text8() As String Text8 = Text(7).TextOff End Property Public Property Let Text8(ByVal New_Text8 As String) Text(7).TextOff() = New_Text8 PropertyChanged "Text8" End Property Public Property Get Text9() As String Text9 = Text(8).TextOff End Property Public Property Let Text9(ByVal New_Text9 As String) Text(8).TextOff() = New_Text9 PropertyChanged "Text9" End Property Public Property Get Text10() As String Text10 = Text(9).TextOff End Property Public Property Let Text10(ByVal New_Text10 As String) Text(9).TextOff() = New_Text10 PropertyChanged "Text10" End Property Public Property Get Text11() As String Text11 = Text(10).TextOff End Property Public Property Let Text11(ByVal New_Text11 As String) Text(10).TextOff() = New_Text11 PropertyChanged "Text11" End Property Public Property Get Text12() As String Text12 = Text(11).TextOff End Property Public Property Let Text12(ByVal New_Text12 As String) Text(11).TextOff() = New_Text12 PropertyChanged "Text12" End Property Public Property Get BorderStyle() As Integer Attribute BorderStyle.VB_Description = "Gibt den Rahmenstil für ein Objekt zurück oder legt diesen fest." BorderStyle = UserControl.BorderStyle End Property Public Property Let BorderStyle(ByVal New_BorderStyle As Integer) UserControl.BorderStyle() = New_BorderStyle PropertyChanged "BorderStyle" End Property