发布于 2009-12-22 18:16:30
1楼
按钮鼠标左键事件:
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
If Item.WindowsStyle = True Then Item.WindowsStyle = False
If Item.BackColor = vbGreen Then
Item.BackColor = vbRed
Else
Item.BackColor = vbGreen
End If
End Sub