Question

在vb6的工具箱中，鼠标移到控件上出现一个方框，点击又凹陷下去，怎样用vb写这种情况，谢谢。

Answer 1

以Text文本框控件为例：

Private Sub Form_Load()
Text1.BorderStyle = 0
End Sub

Private Sub Text1_Click()
Text1.BorderStyle = 1
End Sub

加入以下代码即可得到效果，但是这属于投机取巧型，你最好指明是哪种控件，因为不同的控件可能有不同的方法，比方说Picture控件就得用Autdraw属性

Answer 2

你可以用两个不同的 图片在不同状态时使用.

Answer 3

commandButton可设置按下时图片，抬起时图片，失效时图片