如何用VB做颜色渐变的窗体

要用到Timer控件
用鼠标单击窗体时，窗体颜色改变为另一种渐变的颜色

---

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

---

用个Timer空间控制颜色就行了

---

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
End Sub

---

颜色渐变，不是定时变换颜色
用个渐变的背景图片就行了啊

---

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Randomize
Form1.BackColor = QBColor(Int(Rnd * 15) + 1)
End Sub

---