несколько вариантов градиентной заливки формы

Option Explicit
Private I#, c#, j#, c1#, k%, k1%, mw#, mh#, tr As Boolean
 
 
 
Private Sub ef(n As Integer)
Me.Cls
  For I = 1 To Me.ScaleWidth
  j = Me.ScaleWidth - I + 1
    c1 = (j / Me.ScaleHeight) * 255
   c = (I / Me.ScaleWidth) * 255
   c = RGB(Abs(c), Abs(c1), Abs(c - c1))
   Select Case n
   Case 1: Line (I, j)-(2 * I - j * Log(j), I + j), c
    Case 2: Line (I, I)-(I + j, j), c
     Case 3: Line (30 * Log(Atn(1) * I), 10 * Log(Atn(1) * j))-(I + j, I), c
      Case 4:  Line (I, 0)-(0, j), c
       Case 5: Line (I, 0)-(j, j), c
   Case 6: Line (j, Atn(I - j) + I - j)-(I + j, j), c
    Case 7: Line (j, Atn(I + j))-(I + j, j), c
     Case 8: Line (I, Atn(j))-(2 * j, 0.8 * I), c
      Case 9: Line (Atn(I), Atn(j))-(2 * j, 0.8 * I), c
       Case 10: Line (0, I * Atn(I * j))-(3 * Me.ScaleHeight, 2 / Me.ScaleHeight), c
   End Select
 
  Next
End Sub
Private Sub ef1(n As Integer)
Me.Cls
  For I = 1 To Me.ScaleWidth Step 4  ' ScaleHeight
    For j = 1 To Me.ScaleWidth Step 4  ' ScaleHeight
    c1 = (j / Me.ScaleHeight) * 255
   c = (I / Me.ScaleWidth) * 255
   c = RGB(255 - c, c1, Abs(c - c1))
    Select Case n
   Case 1: Line (I, j)-(I + j, I + j), c
    Case 2: Line (I, I)-(I + j, j), c
     Case 3: Line (30 * Log(Atn(1) * I), 10 * Log(Atn(1) * j))-(I + j, I), c
      Case 4:  Line (I, 0)-(0, j), c
       Case 5: Line (I, 0)-(j, j), c
   Case 6: Line (j, Atn(I - j) + I - j)-(I + j, j), c
    Case 7: Line (j, Atn(I + j))-(I + j, j), c
     Case 8: Line (I, Atn(j))-(2 * j, 0.8 * I), c
      Case 9: Line (Atn(I), Atn(j))-(2 * j, 0.8 * I), c
       Case 10: Line (0, 0)-(I, j), c
   End Select
  Next
    Next
End Sub
 
 
Private Sub Command1_Click()
Command1.Caption = k
If tr = True Then tr = False
k = k + 1
If k > 10 Then k = 1
Call ef(k)
End Sub
 
Private Sub Command2_Click()
Command2.Caption = k1
If tr = False Then tr = True
k1 = k1 + 1
If k1 > 10 Then k1 = 1
Call ef1(k1)
End Sub
 
Private Sub Form_Load()
HScroll1.Min = 1: HScroll1.Max = 40
Me.AutoRedraw = False
Me.ScaleMode = 3 '4,6,7
mw = Me.ScaleWidth: mh = Me.ScaleHeight
k = 1: k1 = 1
End Sub
 
 
 
Private Sub HScroll1_Change()
HScroll1_Scroll
End Sub
 
Private Sub HScroll1_Scroll()
Me.Scale (0, 0)-(mw * HScroll1.Value / 10, mh * HScroll1.Value / 10)
If tr = False Then
Call ef(k)
Else
Call ef1(k1)
End If
End Sub

Private Sub Form_Load()
 
 
Me.AutoRedraw = False
Me.ScaleMode = 3 '4,6,7
mw = Me.ScaleWidth: mh = Me.ScaleHeight
k = 1: k1 = 1
HScroll1.Min = 1: HScroll1.Max = 40
End Sub