Dim hRegion As Region
 
    Private Sub ISHilfe_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs)Handles Me.Load
        Dim gp As New Drawing2D.GraphicsPath
        Dim rc As New Rectangle(Me.Location, Me.Size)
 
        gp.AddRectangle(rc)
        hRegion = New Region(gp)
 
    End Sub
 Private Sub ISHilfe_MouseMove(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
 
        If DirectCast(hRegion, Region).IsVisible(e.X, e.Y) = True Then
            If ÜberControl = False Then
                ÜberControl = True
                Exit Sub
            End If
        Else
            If ÜberControl = True Then
                ÜberControl = False
                Exit Sub
            End If
        End If
    End Sub