alguém sabe fazer degrad no frame,eu fiz a seguinte programação no form e funcionou:

 

Private Sub form_resize()
Dim cont As Single
Me.AutoRedraw = True
Me.ScaleHeight = 255
Me.DrawWidth = 2
For cont = 0 To 254
Me.Line (0, cont)-(Me.Width, cont), RGB(13, cont, 240) ' cor azul
Next

End Sub
a propósito quando eu maximizo o form ele fica cheio de linhas ,por que?