Labels:bulletin board | monitor | plant | sky | web site | window OCR: Private Sub vsbBr ightness Scroll (ByVal sender As System. Object ByVal As Svstem Wind Dim iDiff Integer OldValue NewValue Tf hsbRed Value iDi ++ And hsbRed Value iDiff 255 Then hsbRed Value iDiff End If hsbGreen Value iDiff And hshGreen Value iDiff <= 255 Then hshGreen Value iDiff End If hshBlue Value iDiff And hshB lue Value iDiff <= 255 Then hsbBlue Value iDiff End hsbRed Scroll (Nothing Nothing) hsbGr een Scroll (Nothing, Nothing] hsbBlue Scroll (Nothing Nothing) End Sub hshRed hsbB