颜色渐变的窗体

再上来了联系，已经给你做好了窗体颜色的程序。可以指定渐变颜色的。

Dim K As Integer
Private Sub Form_Click()
Select Case K
Case 1
Me.BackColor = &HFF0000
K = K + 1
Case 2
Me.BackColor = &HE6E6FA
K = K + 1
Case 3
Me.BackColor = &HFF
K = K + 1
Case 4
Me.BackColor = &HFF00FF
K = 1
End Select
End Sub

Private Sub Form_Load()
K = 1
End Sub
颜色你自己可以调整

加上一个循环即可，例如
Private Sub Form_Click()
For a = 1 To 255 Step 1 / 6000
Me.BackColor = RGB(a, 0, 255 - a)
Next
End Sub

'没理解错的话，是窗体呈现静态渐变色的意思吧，而不是随着时间的改变，背景色发生动态渐变吧？如果是静态渐变色的话，考虑以下的代码（背景色随着时间改变的代码，也写了，在后面）：
Dim flag As Integer

Private Sub Dither()
Dim i As Integer

For i = 0 To 255
Select Case flag Mod 7
Case 0
vcolor = RGB(0, 0, 255 - i)
Case 1
vcolor = RGB(0, 255 - i, 0)
Case 2
vcolor = RGB(255 - i, 0, 0)
Case 3
vcolor = RG