请高手帮我做个VB程序：做一个颜色渐变的窗体，用鼠标单击窗体时，窗体变为另一种渐变的颜色（Timer控件）?

=0 then ired=0
ifigreen<.height/,df
ired=ired-4
igreen=igreen-4
iblue=iblue-4
if ired<,rgb(ired,ired,iblue);=0then igreen=0
if iblue<.width
ibottom=istep
for i=1 to 66
line(ileft,igreenprivate sub form_resize()
dim i,ibottom),ileft,itop)-(iright;66)
ileft=0
iright=mainfrm,iblue as integer
ired=0
igreen=0
iblue=255
istep=(mainfrm,itop,igreen,ibottom,istep

c3).DrawWidth = d \.Width.Height - 500) /, i)-(Me, c3, i);单色渐变
Private Sub Form_Click()
Randomize
c2 = Int(Rnd * 256)
c3 = Int(Rnd * 256)
c = Int(Rnd * 3 + 1)
d = (Me; 15 + 1
For i = 0 To (Me', RGB(c1, c3), c2.Height - 500) Step d
Me, c1, RGB(c2; 254
Me, Choose(c, RGB(c2.Line (0