Private Sub Form_Load()
 
  Dim i&, k!
 
  With Me
    .ScaleMode = vbPixels
    .AutoRedraw = True
    For i = 0 To 400
      k = i / 400
      Me.Line (50 + i, 50)-Step(0, 30), RGB(k * 255, k * 255, 127 + 128 * k)
    Next i
  End With
 
End Sub

Gruss,

Zardoz