Visual Basic Part 3 ( Kombinasi warna )

Private Sub WARNA()
    txtwarna.BackColor = RGB(HSM.Value, HSH.Value, HSB.Value)
End Sub

Private Sub HSB_Change()
    WARNA
    LBLBIRU.Caption = HSB.Value
End Sub

Private Sub HSB_Scroll()
    WARNA
    LBLBIRU.Caption = HSB.Value
End Sub

Private Sub HSH_Change()
    WARNA
    LBLHIJAU.Caption = HSH.Value
End Sub

Private Sub HSH_Scroll()
    WARNA
    LBLHIJAU.Caption = HSH.Value
End Sub

Private Sub HSM_Change()
    WARNA
    LBLMRH.Caption = HSM.Value
End Sub

Private Sub HSM_Scroll()
    WARNA
    LBLMRH.Caption = HSM.Value
End Sub