VERSION 5.00 Begin VB.Form DisplayWindow BackColor = &H00FF8080& Caption = "USB Design By Example: Reader Board" ClientHeight = 5595 ClientLeft = 60 ClientTop = 345 ClientWidth = 9840 FillColor = &H00FF8080& FillStyle = 0 'Solid LinkTopic = "Form1" ScaleHeight = 5595 ScaleWidth = 9840 StartUpPosition = 3 'Windows Default Begin VB.CommandButton SelectMode Caption = " " Height = 255 Left = 4200 TabIndex = 3 Top = 5160 Width = 735 End Begin VB.CommandButton UpdateIO Caption = "Update Display" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 5760 TabIndex = 2 Top = 4080 Width = 2895 End Begin VB.TextBox EntryText BeginProperty Font Name = "Arial Rounded MT Bold" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 960 TabIndex = 1 Text = "Enter text" Top = 4080 Width = 2895 End Begin VB.Label Dot BackStyle = 0 'Transparent Caption = "Dot Mode" BeginProperty Font Name = "MS Sans Serif" Size = 13.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 495 Left = 5520 TabIndex = 5 Top = 5040 Width = 1695 End Begin VB.Label Text Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "Text Mode" BeginProperty Font Name = "MS Sans Serif" Size = 13.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 495 Left = 2280 TabIndex = 4 Top = 5040 Width = 1695 End Begin VB.Shape Shape1 FillStyle = 0 'Solid Height = 255 Left = 4200 Top = 5160 Width = 1095 End Begin VB.Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Reader Board" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 27.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Left = 1920 TabIndex = 0 Top = 360 Width = 6015 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED6 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 2880 Width = 255 End Begin VB.Shape LED5 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 2640 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED4 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 2400 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED3 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 2160 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED2 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 1920 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED0 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 1440 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 39 Left = 9480 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 38 Left = 9240 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 37 Left = 9000 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 36 Left = 8760 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 35 Left = 8520 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 34 Left = 8280 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 33 Left = 8040 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 32 Left = 7800 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 31 Left = 7560 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 30 Left = 7320 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 29 Left = 7080 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 28 Left = 6840 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 27 Left = 6600 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 26 Left = 6360 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 25 Left = 6120 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 24 Left = 5880 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 23 Left = 5640 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 22 Left = 5400 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 21 Left = 5160 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 20 Left = 4920 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 19 Left = 4680 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 18 Left = 4440 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 17 Left = 4200 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 16 Left = 3960 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 15 Left = 3720 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 14 Left = 3480 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 13 Left = 3240 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 12 Left = 3000 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 11 Left = 2760 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 10 Left = 2520 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 9 Left = 2280 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 8 Left = 2040 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 7 Left = 1800 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 6 Left = 1560 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 5 Left = 1320 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 4 Left = 1080 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 3 Left = 840 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 2 Left = 600 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 1 Left = 360 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED1 FillColor = &H000080FF& FillStyle = 0 'Solid Height = 255 Index = 0 Left = 120 Shape = 3 'Circle Top = 1680 Width = 255 End Begin VB.Shape LED_Background FillStyle = 0 'Solid Height = 1695 Left = 120 Top = 1440 Width = 9615 End End Attribute VB_Name = "DisplayWindow" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public ConfigurationMode As Byte ' See SetConfiguration comment Public Sub Form_Load() Call SelectMode_Click ' Set DOT mode End Sub Private Sub Form_MouseDown(Button%, Shift%, Xpos As Single, Ypos As Single) ' Determine which LED the mouse is over xValue& = Int((Xpos - 120) / 240): yValue& = Int((Ypos - 1440) / 240) If (xValue& > -1) And (xValue& < 40) And InDotMode Then Select Case yValue ' Toggle the LED if clicked while in DOT mode Case 0: LED0(xValue&).Visible = Not LED0(xValue).Visible Case 1: LED1(xValue&).Visible = Not LED1(xValue).Visible Case 2: LED2(xValue&).Visible = Not LED2(xValue).Visible Case 3: LED3(xValue&).Visible = Not LED3(xValue).Visible Case 4: LED4(xValue&).Visible = Not LED4(xValue).Visible Case 5: LED5(xValue&).Visible = Not LED5(xValue).Visible Case 6: LED6(xValue&).Visible = Not LED6(xValue).Visible End Select End If End Sub Private Sub SelectMode_Click() ' Toggle the select mode If SelectMode.Left = 4200 Then SelectMode.Left = 4560: EntryText.Visible = False ' Dot mode Dot.ForeColor = RGB(255, 255, 255): Text.ForeColor = RGB(42, 42, 42) ' Grey Call SetConfiguration(2) Else: SelectMode.Left = 4200: EntryText.Visible = True ' Text mode Dot.ForeColor = RGB(42, 42, 42): Text.ForeColor = RGB(255, 255, 255) ' White Call SetConfiguration(1) End If End Sub Private Function InDotMode() As Boolean InDotMode = (SelectMode.Left = 4560) End Function Private Sub UpdateIO_Click() ' Update the real IO device Dim Buffer(40) As Byte Buffer(0) = ConfigurationMode For i& = 0 To 39 If InDotMode Then ' Fill the buffer with the DOT pattern Buffer(i& + 1) = (LED0(i&).Visible And 1) + (LED1(i&).Visible And 2) + (LED2(i&).Visible And 4) + (LED3(i&).Visible And 8) + _ (LED4(i&).Visible And 16) + (LED5(i&).Visible And 32) + (LED6(i&).Visible And 64) Else ' In Text Mode. Fill the buffer with text If i& < Len(EntryText.Text) Then Buffer(i& + 1) = Asc(Mid(EntryText.Text, i& + 1, 1)) Else: Buffer(i& + 1) = 0: End If End If ' In DotMode Next i& If InDotMode Then ' Send the DOT pattern to the I/O device Call WriteUSBdevice(AddressFor(Buffer(0)), 41) Else ' Seend the text and retreive the dot pattern Call WriteUSBdevice(AddressFor(Buffer(0)), 41) Call ReadUSBdevice(AddressFor(Buffer(0)), 40) For i& = 0 To 39 LED6(i&).Visible = Buffer(i&) And 1: LED5(i&).Visible = Buffer(i&) And 2: LED4(i&).Visible = Buffer(i&) And 4 LED3(i&).Visible = Buffer(i&) And 8: LED2(i&).Visible = Buffer(i&) And 16: LED1(i&).Visible = Buffer(i&) And 32 LED0(i&).Visible = Buffer(i&) And 64 Next i& End If End Sub Public Sub SetConfiguration(NewConfiguration As Byte) ' Get the Current Configuration Dim ConfigurationData As ConfigurationDataType Dim Buffer(100) As Long ' PROBLEM: during system testing it was discovered that Windows 98 DOES NOT SUPPORT the ' HidD_GetConfiguration system call - this means that an application program (which is what ' this is) CANNOT send a SetConfiguration packet to an I/O device; the call is supported ' by Windows 2000 and by Windows 98 for kernel level (ie device driver) software. ' The "Reader Board" I/O device was tested independantly for its correct dual-configuration ' operation. ' This example, therefore, uses an ALTERNATE method of implementing "dual-configuration" ' I extended the Report Buffer by one byte and prepend the data with the "mode" byte. ' This works, not as elegant as I would have wanted, but it does implement "dual-modes" ' ' Success& = HidD_GetConfiguration(HidHandle&, AddressFor(Buffer(0)), UBound(Buffer)) ' If (Success& = 0) Then ErrorExit ("Could not get CurrentConfiguration") ConfigurationMode = NewConfiguration End Sub