Smooth blue shaded background.

Create a 1x1 pixel .BMP with all the shades of blue in its palette.

Sub Form_Paint ()
Form_Paintblue
Form_Print 16, 16, "Here is some text"
End Sub


Sub Form_Paintblue ()
Dim i As Integer
Dim blueheight As Integer
Me.ScaleMode = 3 'pixel
blueheight = Me.ScaleHeight \ 256
For i = 0 To 255
Me.Line (0, i * blueheight)-Step(Me.ScaleWidth, blueheight), RGB(0, 0, 255 - i), BF
Next
End Sub