HScroll

[NASA's Spaceman]

سلام دوستان
میخوام بدونم چه کنم تا وقتی این HScroll رو حرکت میدم تغییر رنگ اعمال بشه نه یکدفعه از سفید بشه قرمز منظورم اینه که از قرمز روشن به قرمز تیره بره و کدش رو برا وی بی 6 میخوام
با تشکر

[m.4.r.m]

Private Sub HScroll1_Change()
Text1.BackColor = RGB(Val(HScroll1.Value), 0, 0)
Label1.Caption = RGB(Val(HScroll1.Value), 0, 0)
End Sub


مقدار Max مربوط به HScroll رو بزار روی 255