I need help with the logic to use pset to draw a color bar that fades from a given RGB to white over the scalewidth of a form.
Private Sub Command1_Click()
Dim r As Integer
Dim g As Integer
Dim b As Integer
r = 14
g = 67
b = 146
For i = 1 To Me.ScaleWidth Step 1
For j = 1 To CInt(Me.ScaleHeight / 10) Step 10
' how do I increment the values of r,g,b to 255 relative to the ScaleWidth?
' if that makes sense?
' The idea is that r,g,b should arrive at 255 at about the same time.
PSet (i, j), RGB(r, g, b)