Option Explicit

Dim x As Integer

Private Sub Form_Load()
  For x = 0 To 2
    HScroll1(x).Max = 255
    HScroll1(x).Value = 255
    HScroll1(x).Value = 0
  Next
End Sub

Private Sub HScroll1_Change(Index As Integer)
  Dim red As Long, green As Long, blue As Long

  If Check1.Value = 1 Then
    For x = 0 To 2
      If x <> Index Then
        HScroll1(x).Value = HScroll1(Index).Value
      End If
    Next
  End If

  Picture1.BackColor = RGB(HScroll1(0).Value, _
        HScroll1(1).Value, HScroll1(2).Value)

  red = Rot(Picture1.BackColor)
  green = gruen(Picture1.BackColor)
  blue = Blau(Picture1.BackColor)

  Label1(0).Caption = red
  Label1(1).Caption = green
  Label1(2).Caption = blue
End Sub

Private Sub HScroll1_Scroll(Index As Integer)
  HScroll1_Change Index
End Sub

Function Rot(Col As Variant)
  Rot = Col Mod 256
End Function

Function gruen(Col As Variant)
  gruen = (Col \ 256) Mod 256
End Function

Function Blau(Col As Variant)
  ' Long, da 256 * 256 Überlauf
  Blau = Col \ (256& * 256)
End Function