Option Explicit On

Option Infer Off

Option Strict On



'VisualBasic2010 



Public Class Form1



    'パネルの宣言＆インスタンス 

    Dim U_panel As New Panel With {

        .Dock = DockStyle.Fill,

        .BorderStyle = BorderStyle.Fixed3D

    }



    'ボタンの宣言 

    Const U_button_suu As Integer = 3

    Dim U_button(U_button_suu - 1) As Button



    Sub U_button_set()



        For i As Integer = 0 To U_button_suu - 1

            'ボタンのプロパティの設定 

            U_button(i) = New Button With {

                .Size = New Size(U_button_data(i * 4), U_button_data(i * 4 + 1)),

                .Location = New Point(U_button_data(i * 4 + 2), U_button_data(i * 4 + 3)),

                .Text = "",

            .BackColor = Color.SkyBlue,

                .FlatStyle = FlatStyle.Flat

            }

            'ボタン（i）のインスタンス（実体化） 

            Me.Controls.Add(U_button(i))

        Next



    End Sub



    'ボタンの配置、大きさのデータ 

    '配列量は4倍｛X位置、Y位置、サイズX、サイズY} 

    Dim U_button_data() As Integer = {

   30, 30, 50, 70,

        150, 20, 200, 30,

   200, 50, 400, 100

                                    }



    Public Sub New()



        ' この呼び出しはデザイナーで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 



        With Me

            .Size = New Size(650, 650)

            .Text = "迷路"

            .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow

            .BackColor = Color.Gray

        End With



        U_button_set()



    End Sub

End Class