お世話になります。

フォームに正方形が描画されることを期待して、フォームのペイントイベントに以下のコードを書いてみました。

        Dim g As Graphics
        Dim p As New Pen(Color.Red)
        p.Width = 10
        g = e.Graphics
        g.DrawRectangle(p, 10, 10, 100, 100)

これで、左上隅10,10の場所に、幅＊高さ100＊100の正方形が描画されるかと思ったのですが、どう見ても縦横比１：１．２程度の縦長の長方形が描画されます。とても正方形には見えません。
線の幅も縦幅の方が太く見えます。

どういう理屈なのでしょうか。