script visual basic (mencampur warna)

scrip vb (mencampur warna)

Private Sub warna()
    txtWarna.BackColor = RGB(hsbMerah.Value, hsbHijau.Value, hsbBiru.Value)

End Sub

Private Sub Command1_Click()
    Form3.Hide
End Sub


Private Sub hsbMerah_Change()
    warna
    lblMerah.Caption = hsbMerah.Value
End Sub
Private Sub hsbMerah_scroll()
    warna
    lblMerah.Caption = hsbMerah.Value
End Sub

Private Sub hsbhijau_Change()
    warna
    lblHijau.Caption = hsbHijau.Value
End Sub
Private Sub hsbhijau_scroll()
    warna
    lblHijau.Caption = hsbHijau.Value
End Sub
Private Sub hsbBiru_Change()
    warna
    lblBiru.Caption = hsbBiru.Value
End Sub
Private Sub hsbBiru_Scroll()
    warna
    lblBiru.Caption = hsbBiru.Value
End Sub