vb 实现一个按钮立体效果，我是新手，还请多指教。谢谢！！！

[prostu]

在VB中创建一个label1 我怎样才能控制label1具有按钮效果，我按下就有陷下的感觉，松开弹上来。谢谢！！！

[hui_hui_2007]

用两个图片吧.
一样大,摞在一起，一个可见，另一个不可见，按下时，另一个可见，一个不可见．
这样比lab控件好看些．

[WuYunpeng]

以下是一个比较简单的方法
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 1
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF0000
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0

End Sub

[WuYunpeng]

也可以用图片来做一个控件

[prostu]

谢谢各位高手！！！

[heibing578604041]

好办法

[麦壳饼]

图片 。