Private Sub ShadePic(frm As Form)
    Dim DS, DW, SM, sh
    Dim i As Integer 
    Const Inside_Solid = 6
    Const Copy_Pen = 13
 
    DS = frm.DrawStyle                  'speichern 
    DW = frm.DrawWidth
    SM = frm.ScaleMode
    sh = frm.ScaleHeight
    frm.DrawStyle = vbInsideSolid
    frm.DrawWidth = 2
    frm.ScaleMode = vbPixels
    frm.ScaleHeight = 256
 
    For i = 0 To 255
               frm.Line (0, i)-(frm.Width, i + 1), _
                  RGB(0, 0, 255 - i), B 'blue 
    Next i
 
    ' zurücksetzen 
    frm.DrawStyle = DS
    frm.DrawWidth = DW
    frm.ScaleHeight = sh
    frm.ScaleMode = SM
End Sub 

Private Sub Form_Load()
 
    Me.AutoRedraw = True 
    ShadePic Me
 
End Sub