vb 按钮循环调用 老出错 希望给予帮忙

Question

 一个简单的 vb 按钮问题
我想编写一个 点击按钮变换工程颜色和按钮显示字的小程序  当点击一下按钮后工程（form1 的backcolor ）会换颜色 
按钮（command1.caption ）的名字也会在 form变换颜色后产生相应的 改变
 也就是说我点一下按钮 按钮上面的字会换成 红色 工程也会换成红色背景 再点击一下按钮按钮的显示的字会变为蓝色，工程的颜色也会变为颜色
 需要 4个颜色 循环改变   我做了 两个小时了 老是出错（下面是我command1下的程序）
Private Sub Command1_Click()
If Command1.Caption = commande1 Then
 Command1.Caption = 红色
 Form1.BackColor = RGB(225, 0, 0)
 ElseIf Command1.Caption = 红色 Then
 Command1.Caption = 绿
 Form1.BackColor = RGB(0, 225, 0)
  ElseIf Command1.Caption = 绿色 Then
 Command1.Caption = 蓝色
 Form1.BackColor = RGB(0, 0, 225)
  ElseIf Command1.Caption = 蓝色 Then
 Command1.Caption = 黄色
 Form1.BackColor = RGB(225, 225, 0)
  Else: Command1.Caption = 黄色
 Command1.Caption = 红色
 Form1.BackColor = RGB(225, 0, 0)
 
 End If
 End Sub

Answer 1

Private Sub Command1_Click()
If Command1.Caption = commande1 Then
    Command1.Caption = "红色"
    Form1.BackColor = RGB(225, 0, 0)
    ElseIf Command1.Caption = "红色" Then
    Command1.Caption = "绿色"
    Form1.BackColor = RGB(0, 225, 0)
     ElseIf Command1.Caption = "绿色" Then
    Command1.Caption = "蓝色"
    Form1.BackColor = RGB(0, 0, 225)
     ElseIf Command1.Caption = "蓝色" Then
    Command1.Caption = "黄色"
    Form1.BackColor = RGB(225, 225, 0)
     Else: Command1.Caption = "黄色"
    Command1.Caption = "红色"
    Form1.BackColor = RGB(225, 0, 0)
End If
End Sub
可以结帖了……

Answer 2

大哥谢谢 怎么给你分啊 你qq 多少啊 我刚刚学vb 才3天想多多学习学习