MouseEnterLeave using Capture

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Capture = True

        AddHandler Me.MouseEnter, AddressOf Form_MouseEnter
        AddHandler Me.MouseLeave, AddressOf Form_MouseLeave

    End Sub

    Private Sub Form_MouseEnter(sender As Object, e As EventArgs)
        If (Me.Capture) Then
            Me.Opacity = 0.5
        End If
    End Sub

    Private Sub Form_MouseLeave(sender As Object, e As EventArgs)
        Me.Opacity = 1
        Me.Capture = True
    End Sub

End Class