フォームを平方四辺形にする次の例ではフォーム(Form1)の形を平方四辺形にします。ここではフォームのLoadイベントハンドラ内にコードを書いていますが、もちろんフォームのコンストラクタ内などでも構いません。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'フォームのサイズを適当に変更 Me.SetBounds(Me.Left, Me.Top, 201, 101, _ BoundsSpecified.Size) '多角形の頂点の位置を設定 Dim points() As Point = _ {New Point(0, 0), _ New Point(100, 100), _ New Point(200, 100), _ New