Private Sub cmdFine_Click()
'Termino il programma
End
End Sub
Private Sub cmdOk_Click()
lblColor.BackColor = RGB(lblRed.Caption, lblGreen.Caption, lblBlue.Caption)
End Sub
Private Sub Form_Load()
'Mettendo TabStop a False eviteremo che il focus vada
'sulle ScrollBar
VScroll1.TabStop = False
VScroll1.TabStop = False
VScroll1.TabStop = False
End Sub
Private Sub VScroll1_Change()
'Visualizziamo il valore della ScrollBar nella Label
lblRed.Caption = VScroll1.Value
End Sub
Private Sub VScroll2_Change()
'Visualizziamo il valore della ScrollBar nella Label
lblGreen.Caption = VScroll2.Value
End Sub
Private Sub VScroll3_Change()
'Visualizziamo il valore della ScrollBar nella Label
lblBlue.Caption = VScroll3.Value
End Sub