正しくは、

Using p As New Pen(Color.Red)

        p.Width = 10

        Dim g As Graphics = e.Graphics

        g.DrawRectangle(p, 10, 10, 100, 100)

End Using

ですよね。今回の件とは関係ないですけれども。


> どう見ても縦横比１：１．２程度の縦長の長方形が描画されます。
お使いのモニタは液晶画面でしょうか。それともCRT(ブラウン管)ディスプレイでしょうか。

CRT だとしたら、モニタ側のスイッチやハードウェアメニュー等で、画面の縦横比を
調整できる機能が無いかどうか確認してください。

液晶画面だとしたら、画面の推奨解像度と、OS 指定の解像度が一致しているかどうかを
確認してください。

これらの設定に問題がある場合、見た目上の縦横比が崩れて見えてしまう可能性があります。