Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll, HScrollBar2.Scroll, HScrollBar3.Scroll, HScrollBar4.Scroll
pen_c = Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value, HScrollBar4.Value)
Label1.BackColor = pen_c
End Sub