一个菜菜问题，所以没舍得下分：）

Question

过去写过一个渐变色窗体（就是好像软件的setup界面那样）的例子，由于硬盘坏过一次，全都报销了，现在竟然不会写了
请看下面的代码：Private Sub Form_Resize()
On Error GoTo Error
Me.AutoRedraw = True
Me.ScaleHeight = 255
Me.Cls
For i = 0 To 255
Me.Line (0, i)-(Me.ScaleWidth, i), RGB(0, 0, i), B
Next i
Exit Sub
'最小化时会产生一个“无效属性值”的错误，不做处理
Error:
If Err.Number = 380 Then
Exit Sub
Else
MsgBox Error(Err.Number) & vbCrLf & "错误号：" & Err.Number, 16, "错误"
End If
End Sub一运行时很正常，会由上到下呈由黑色过渡到蓝色的效果，但如果改变窗体大小（比如最大化）时，窗体将变成很多条线
我实在看不出哪里写的不对，请高手指点一下

Answer 1

加一句
Me.DrawWidth = 5

Answer 2

建议使用Api 速度和效果都好多了。