Private Sub MDIForm_Load()
 
  With Picture1
    .BorderStyle = vbBSNone
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .Visible = True
  End With
 
End Sub
 
Private Sub MDIForm_Resize()
 
  Dim SW&, SH&, x1&
 
  With Picture1
    .Align = 2
    .Align = 3
    SW = .ScaleWidth
    SH = .ScaleHeight
    For x1 = 0 To SW - 1
      Picture1.Line (x1, 0)-(x1, SH - 1), RGB(255, x1 / (SW - 1) * 255, 0)
    Next x1
  End With
 
End Sub

Gruss,

Zardoz