Private Sub MDIForm_Resize()
Picture1.Move 0, 0, Me.Width, Me.Height
Picture1.Cls
Picture1.AutoRedraw = True
Picture1.DrawStyle = 6
Picture1.DrawMode = 13
Picture1.DrawWidth = 2
Picture1.ScaleMode = 3
Picture1.ScaleHeight = (256 * 2)
Dim i1 As Integer, iY As Integer
For i1 = 0 To 255
Picture1.Line (0, iY)-(Picture1.Width, iY + 2), RGB(0, 0, i1), BF
iY = iY + 2
Next i1
End Sub