9.1 Program

Visual Basic Code for Program 9.1

Private Sub hsbRed_Scroll (...) Handles hsbRed.Scroll
    Me.BackColor = ColorTranslator.FromO1e(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value.))
End Sub

Private Sub hsbGreen_Scroll (...) Handles hsbGreen.Scroll
    Me.BackColor = ColorTranslator.FromO1e(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value.))
End Sub

Private Sub hsbBlue_Scroll (...) Handles hsbBlue.Scroll
    Me.BackColor = ColorTranslator.FromO1e(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value.))
End Sub

Private Sub hsbBlue_scroll (ByVal sender As System. Object, ByVal e As System.Windows.For (...)
    Call ShowFormColour( )
End Sub

Sub ShowFormColour( )

End Class

Me.BackColor = ColorTranslator.FromO1e(RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value))

Private Sub hsbRed_Scroll (...) Handles hsbRed.Scroll
    Call ShowFormColour( )
End Sub

Private Sub hsbRed_Scroll (...) Handles hsbRed.Scroll
    Call ShowFormColour( )
End Sub

Private Sub hsbRed_Scroll (...) Handles hsbRed.Scroll
    Call ShowFormColour( )