VB怎么样让一个按钮先后点击，让窗体的颜色不断的改变

在按钮的onclick事件里，用代码设置窗体的colour属性吧

Option Explicit
Dim sum As Integer

Private Sub Command1_Click()
sum = sum + 1
Me.BackColor = QBColor(sum)
If sum >= 16 Then
sum = sum - 16
End If
End Sub
或:
Private Sub Command1_Click()
Me.BackColor = RGB(Rnd * 256, 256 - Rnd * 256, Rnd * Rnd * 256)
End Sub

没看懂