En la dirección http://www.programando.com/visualbasic/mundovisual/GrafControl32.htm puedes encontrar varios controles que te ayudarán a dibujar degradados.
Sub Degradado(vForm As Form) Dim intContador As Integer vForm.DrawStyle = vbInsideSolid vForm.DrawMode = vbCopyPen vForm.ScaleMode = vbPixels vForm.DrawWidth = 2 vForm.ScaleHeight = 256 For intContador = 0 To 255 vForm.Line (0, intContador)-(Screen.Width, _ intContador - 1), RGB(0, 0, 255 - intContador), B Next intContador End Sub
Puede llamar a esta función desde el evento Paint del formulario. La rutina muestra un color azul degradado aunque puedes modificar el color en la función RGB.