9.1

This is the VB code used to complete the task below:

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 Sub

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