纯粹是为了弄画面效果的话，我用vbs脚本的，如下:

If Item.BackColor = vbRed Then 'RGB(236,233,216)
Item.BackColor = vbGreen 'RGB(0,255,0)
Item.BorderColorBottom = RGB(255,255,255)
Item.BorderColorTop = RGB(128,128,128)
Item.ForeColor = vbWhite 'RGB(255,255,255)
Item.Text = "运 行"
Else
Item.BackColor = vbRed 'RGB(236,233,216)
Item.BorderColorBottom = RGB(128,128,128)
Item.BorderColorTop = vbWhite'RGB(255,255,255)
Item.ForeColor = vbBlack 'RGB(0,0,0)
Item.Text = "停 止"
End If

注意，按钮的[样式]-[窗口样式]设为[否]。
把代码添加到控件的[按左键]vbs里面就可以了，当然你也可以做成一个全局动作，然后在对应的动作里面调用全局动作就行了。
对颜色不满意的话，可以输入自己喜欢的RGB组合颜色。