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

VB2005+WINXP(SP2)です。

FormにPanelを貼り付けています。
で、以下のURLを参考にフォームをPanelの形にくりぬきたいのですが、
http://dobon.net/vb/dotnet/form/formregion.html#section2

    'GraphicsPathの作成
    Dim path As New Drawing2D.GraphicsPath()
    path.AddRectangle(New Rectangle(Me.Panel1.Left, Me.Panel1.Top, Me.Panel1.Width, Me.Panel1.Height))
    '形を変更
    Me.Region = New Region(path)

とすると、タイトルバーの座標分だけずれてくりぬかれているようです。
きれいにフォームをコントロールの形にするにはどうすればよいのでしょうか

■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)

<pre><pre>■No33409 (.SHO さん) に返信
> ■No33408 (ken さん) に返信
> 
>>下記のようにしてみたのですが、まだパネルの左部と下部が切れ、右部と上部にフォームの一部が残ってしまいます。
> 
> 右部と上部が残るんですか？
> 左部と上部じゃなくて？

━：フォームの境界線
─：パネルの境界線
＊：フォーム

┏━━━━━━━┓
┃＊＊＊＊＊＊＊┃
┃＊┌───┐＊┃
┃＊│　　　│＊┃
┃＊│　　　│＊┃
┃＊└───┘＊┃
┃＊＊＊＊＊＊＊┃
┗━━━━━━━┛

から、パネルのサイズでくりぬこうとしたのですが、

　　　＊＊＊＊＊　
　　　───┐＊　
　　　　　　│＊　
　　　　　　│＊　
　　　　　　　　　
　　　　　　　　　
上図のようにパネルの左、下が切れ、上、右にフォームが残っているという状態です。

試したコード
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)



</pre></pre>