VB 标签变成按钮

1、拖入标签控件

2、编辑按钮之前的颜色

3、输入代码

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.BackColor = &H80000018

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.BackColor = &H8000000D' 悬浮按钮之后的颜色

End Sub

4、运行一下吧：-]

1、打开label1的click的事件

2、输入你想输的命令，如 form2.show

3、再运行一下吧