Dim i&, F1&, SW&, SH&
 
  With Picture1
    .ScaleMode = vbPixels
    .AutoRedraw = True
    SW = .ScaleWidth
    SH = .ScaleHeight
  End With
  For i = 0 To SW / 2 - 1
    F1 = i / (SW / 2) * 255
    Picture1.Line (i, 0)-(i, SH), RGB(F1, 255, 0)
    Picture1.Line (i + (SW \ 2), 0)-Step(0, SH), RGB(255, 255 - F1, 0)
  Next i

Gruss,

Zardoz