C# と VB.NET の質問掲示板

■No33405 (Hongliang さん) に返信
> PointToScreenとPointToClientで調整すればいいんじゃないですか？

ありがとうございます。
下記のようにしてみたのですが、まだパネルの左部と下部が切れ、右部と上部にフォームの一部が残ってしまいます。

        Dim rF As Rectangle = Me.RectangleToScreen(Me.ClientRectangle)
        Dim rP As Rectangle = Me.Panel1.RectangleToScreen(Me.Panel1.ClientRectangle)

        path.AddRectangle( _
            New Rectangle( _
                Me.Panel1.Left + (rP.Left - rF.Left), _
                Me.Panel1.Top + (rP.Top - rF.Top), _
                Me.Panel1.Width, _
                Me.Panel1.Height _
            ) _
        )

        '形を変更
        Me.Region = New Region(path)