9.1 Code

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( ) ---------------------------------------------------------------------------------------------------------