VERSION 5.00 Begin VB.Form DisplayWindow BackColor = &H00FF8080& Caption = "USB Design By Example: Lighting Control Panel" ClientHeight = 5595 ClientLeft = 60 ClientTop = 345 ClientWidth = 8475 FillColor = &H00FFFFFF& FillStyle = 0 'Solid LinkTopic = "Form1" ScaleHeight = 5595 ScaleWidth = 8475 StartUpPosition = 3 'Windows Default Begin VB.VScrollBar Slider Height = 2295 Index = 6 Left = 7080 Max = 0 Min = 255 TabIndex = 12 Top = 2400 Width = 255 End Begin VB.VScrollBar Slider Height = 2295 Index = 5 Left = 5760 Max = 0 Min = 255 TabIndex = 10 Top = 2400 Width = 255 End Begin VB.VScrollBar Slider Height = 2295 Index = 4 Left = 4800 Max = 0 Min = 255 TabIndex = 8 Top = 2400 Width = 255 End Begin VB.VScrollBar Slider Height = 2295 Index = 3 Left = 3840 Max = 0 Min = 255 TabIndex = 6 Top = 2400 Width = 255 End Begin VB.VScrollBar Slider Height = 2295 Index = 2 Left = 2880 Max = 0 Min = 255 TabIndex = 4 Top = 2400 Width = 255 End Begin VB.VScrollBar Slider Height = 2295 Index = 1 Left = 1920 Max = 0 Min = 255 TabIndex = 2 Top = 2400 Width = 255 End Begin VB.VScrollBar Slider Height = 2295 Index = 0 Left = 960 Max = 0 Min = 255 TabIndex = 0 Top = 2400 Width = 255 End Begin VB.Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Lighting Control Panel" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 1095 Left = 0 TabIndex = 14 Top = 480 Width = 8535 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Master" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 6 Left = 6480 TabIndex = 13 Top = 5040 Width = 1575 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "6" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 5 Left = 5520 TabIndex = 11 Top = 4920 Width = 735 End Begin VB.Shape Light FillColor = &H0000FFFF& FillStyle = 0 'Solid Height = 735 Index = 5 Left = 5520 Shape = 3 'Circle Top = 1440 Width = 735 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "5" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 4 Left = 4560 TabIndex = 9 Top = 4920 Width = 735 End Begin VB.Shape Light FillColor = &H00008080& FillStyle = 0 'Solid Height = 735 Index = 4 Left = 4560 Shape = 3 'Circle Top = 1440 Width = 735 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "4" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 3 Left = 3600 TabIndex = 7 Top = 4920 Width = 735 End Begin VB.Shape Light FillStyle = 0 'Solid Height = 735 Index = 3 Left = 3600 Shape = 3 'Circle Top = 1440 Width = 735 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "3" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 2 Left = 2640 TabIndex = 5 Top = 4920 Width = 735 End Begin VB.Shape Light FillColor = &H0000FFFF& FillStyle = 0 'Solid Height = 735 Index = 2 Left = 2640 Shape = 3 'Circle Top = 1440 Width = 735 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "2" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 1 Left = 1680 TabIndex = 3 Top = 4920 Width = 735 End Begin VB.Shape Light FillColor = &H00C0FFFF& FillStyle = 0 'Solid Height = 735 Index = 1 Left = 1680 Shape = 3 'Circle Top = 1440 Width = 735 End Begin VB.Label Label Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "1" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 24 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 615 Index = 0 Left = 720 TabIndex = 1 Top = 4920 Width = 735 End Begin VB.Shape Light FillColor = &H0000FFFF& FillStyle = 0 'Solid Height = 735 Index = 0 Left = 720 Shape = 3 'Circle Top = 1440 Width = 735 End End Attribute VB_Name = "DisplayWindow" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim Value(6) As Byte Public Sub Form_Load() ' Initialize the display For i% = 0 To 6 Slider(6 - i%).Value = 255 / (i% + 1) Call Slider_Change(i%) Next i% End Sub Private Sub Slider_Change(index As Integer) If index <> 6 Then Value(index) = Slider(index).Value * (Slider(6).Value / 255) Light(index).FillColor = RGB(Value(index), Value(index), 0) Else ' Master slider operated For i% = 0 To 5: Call Slider_Change(i%): Next i% End If ' Mimic all changes to the real hardware Call WriteUSBdevice(AddressFor(Value(0)), 6) End Sub