窗体中，鼠标移过标签时字体倾斜，移开时还原

andysky

'鼠标移过标签时字体倾斜，通常该标签用于存放网址或者邮件地址
    Private Sub Label1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        Label1.Font = New System.Drawing.Font(Me.Font, System.Drawing.FontStyle.Italic)
    End Sub

'鼠标离开时字体不再倾斜
    Private Sub Label1_MouseLeave(sender As Object, e As System.EventArgs) Handles Label1.MouseLeave
        Label1.Font = New System.Drawing.Font(Me.Font, System.Drawing.FontStyle.Regular)
    End Sub

MouseLeave这是VSTO中的事件，VBA中没有