Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
form1.backcolor = vbRed
endsub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
form1.backcolor = vbGreen
end sub
VB当中的颜色代码
vbBlack &H0 黑色
vbRed &HFF 红色
vbGreen &HFF00 绿色
vbYellow &HFFFF 黄色
vbBlue &HFF0000 兰色
vbMagenta &HFF00FF 洋红
vbCyan &HFFFF00 青色
vbWhite &HFFFFFF 白色
vbGrayText &H80000011 变灰的(无效的)文字
vbButtonText &H80000012 揿压按钮上文字的颜色
vbInactiveCaptionText &H80000013 非活动标题内文字的颜色
vb3DHighlight &H80000014 三维显示元素的高亮颜色
vb3DDKShadow &H80000015 三维显示元素的最暗阴影颜色
vb3DLight &H80000016 低于 vb3Dhighlight 的 三维次高亮颜色
vb3DFace &H8000000F 文字表面的颜色
vb3DShadow &H80000010 文字阴影的颜色
vbInfoText &H80000017 提示窗内文字的颜色
vbInfoBackground &H80000018 提示窗内背景的颜色