[µo°Ý] ½Ð±Ð ¤¸¥ó°}¦C(Array)«áªº ©R¦WºÃ´b

mark15jill

Public Class Form1
    Dim chbo(10, 10) As CheckBox

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim usx As Integer
        Dim usy As Integer
        Dim nn As Integer
        Dim fontFamily As New FontFamily("·L³n¥¿¶ÂÅé")
        Me.Show()
        nn = 1
        For uux = 1 To 1300 Step 50
            For uuy = 1 To 600 Step 140

                For usx = 0 To 5
                    For usy = 0 To 5

                        chbo(usx, usy) = New CheckBox
                        chbo(usx, usy).BackColor = Color.Aquamarine
                        chbo(usx, usy).Width = 40
                        chbo(usx, usy).Height = 130

                        chbo(usx, usy).Location = New Point(10 + usx + uux, 10 + usy + uuy)

                        Me.Controls.Add(chbo(usx, usy))
                        chbo(usx, usy).Text = chbo(usx, usy).Name & nn  '³oÃ䪺 .Name «çµLªkÅã¥Ü

                    Next
                Next
                nn = nn + 1
            Next
        Next

    End Sub
End Class