www.pudn.com > the PC Host examples .zip > RBDisplay.frm
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