使Label有Button按下的效果

    先设置label20的效果为Fixed3D

然后加入以下代码

Private Sub Label20_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label20.MouseDown
        Label20.BorderStyle = BorderStyle.None
    End Sub

    Private Sub Label20_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label20.MouseUp
        Label20.BorderStyle = BorderStyle.Fixed3D
    End Sub

 

点击分两部分：MouseDown , MouseUp