有关Command控件的问题，困扰我很久了……

[runbird]

就是想让鼠标点击一次command控件，控件不会弹起来，而第二次按已经被“陷下”的按键，它就弹起来了。在线等待～～～

[rainstormmaster]

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const BM_SETSTATE = &HF3
Dim flag As Boolean

Private Sub Command1_Click()
flag = Not flag
SendMessage Command1.hwnd, BM_SETSTATE, flag, ByVal 0&
End Sub

[rainstormmaster]

其它的方法还有几种，最简单的就是用checkbox（设置其style属性为1）代替按钮

[WuYunpeng]

自己做一个控件吧，用两条线（左上角两条右下角两条)和一个标签(放在中间)就行

[wwh999]

完全定制COMMAND控件，可以用随想命令按钮SP1控件，即美观也基本上没错误,界面也很好看。

如果仅仅要实现你的如题要求:最简单的就是用复选框控件CheckBox（设置其style属性为1）即可

[ZOU_SEAFARER]

Check1.Style = 1
这个需要在属性里面设置，不能写在代码里面！