Private Sub Command1_Click()
Label1.BorderStyle = 1
End Sub

Private Sub Command2_DbClick()
Label1.BorderStyle = 0
End Sub

Command1我单击了有效果  可是Command2好像失灵了似的 我双击N遍了 都没效果
只见“对象”下拉列表框中显示的是“（通用）”  过程下拉列表框中显示的是“Command2_DbClick”
在下新手  不知什么地方错了 求高手帮帮忙  谢谢

[bc09] 啊~对不起 是我的错 我太粗心了

不过我把代码改成了
Private Sub Label1_DbClick()
Label1.BorderStyle = 1
End Sub
双击Label1还是没有效果啊

代码要是
Private Sub Label1_Click()
Label1.BorderStyle = 1
End Sub
单击Label1就有效果
我看教程上不是说Label控件支持DbClick事件吗

O 原来少了个L啊 应该是DblClick 而不是DbClick
[bc03] 谢谢楼上的朋友

在这我也顺便纠正下“VB 神童教程”了
https://www.bccn.net/Article/kfyy/vb/jc/200412/406.html
同时我也要感谢“VB 神童教程”的老师