Массивы элементов. Как увеличить скорость создания?

Module Sapper
 
    Public aBtn As ButtonArray ' Массив кнопок
    Public aLbl As LabelArray  ' Массив меток
    Public Timer As Long = 0
    Public TimerEnabled As Boolean = False
    Public aField() As Long    ' Поле
    Public XX As Long = 9
    Public YY As Long = 9
    Public KolBomb As Long = 10
    Public ImgFlag As Image
    Public lbKolBomb As Label
 
    Public Sub TestField(ByVal Ind As Long)
        Dim i As Long
        If aField(Ind) = -1 Then
            For i = 1 To XX * YY
                aBtn(i).Visible = False
            Next
        End If
    End Sub
End Module
 
Public Class ButtonArray
    Inherits System.Collections.CollectionBase
    Private ReadOnly HostForm As System.Windows.Forms.Form
 
    Public Function AddNewButton() As System.Windows.Forms.Button
        ' Create a new instance of the Button class.
        Dim aButton As New System.Windows.Forms.Button
        ' Add the button to the collection's internal list.
        Me.List.Add(aButton)
        ' Add the button to the controls collection of the form 
        ' referenced by the HostForm field.
        HostForm.Controls.Add(aButton)
        ' Set intial properties for the button object.
        aButton.Top = 0
        aButton.Left = 0
        aButton.Tag = Me.Count
        aButton.Text = 'Button ' & Me.Count.ToString
        aButton.Visible = False
        aButton.TabIndex = 0
        AddHandler aButton.Click, AddressOf ClickHandler
        AddHandler aButton.MouseDown, AddressOf ClickMouse
        Return aButton
    End Function
 
    Public Sub New(ByVal host As System.Windows.Forms.Form)
        HostForm = host
        Me.AddNewButton()
    End Sub
 
    Default Public ReadOnly Property Item(ByVal Index As Integer) As System.Windows.Forms.Button
        Get
            Return CType(Me.List.Item(Index), System.Windows.Forms.Button)
        End Get
    End Property
 
    Public Sub Remove()
        ' Check to be sure there is a button to remove.
        If Me.Count > 0 Then
            ' Remove the last button added to the array from the host form 
            ' controls collection. Note the use of the default property in 
            ' accessing the array.
            HostForm.Controls.Remove(Me(Me.Count - 1))
            Me.List.RemoveAt(Me.Count - 1)
        End If
    End Sub
 
    Public Sub ClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
        'MessageBox.Show('you have clicked button ' & CType(CType(sender, System.Windows.Forms.Button).Tag, String))
        aBtn(CType(sender, System.Windows.Forms.Button).Tag - 1).Visible = False
        TestField(CType(sender, System.Windows.Forms.Button).Tag - 1)
    End Sub
 
    Public Sub ClickMouse(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Right Then
            aBtn(CType(sender, System.Windows.Forms.Button).Tag - 1).Image = ImgFlag
            lbKolBomb.Text = CLng(lbKolBomb.Text) - 1
        End If
        TimerEnabled = True
    End Sub
End Class
 
    Public Sub Create_Field(ByVal X As Long, ByVal Y As Long, ByVal Bomb As Long)
        Dim i As Long, j As Long, indBomb As Long, NKol As Long
        Dim k As Long = 1
        XX = X
        YY = Y
        KolBomb = Bomb
        ReDim aField(X * Y)
        For i = 0 To X * Y
            aField(i) = 0
        Next
        For i = 0 To Y - 1
            For j = 0 To X - 1
                aBtn.AddNewB    nd Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        aBtn = New ButtonArray(Me)
        aLbl = New LabelArray(Me)
        Me.Face.Focus()
        ImgFlag = ImageList1.Images(0)
        lbKolBomb = Label1
    End Sub
 
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Remove_Field()
        Create_Field(9, 9, 10)
        Timer = 0
        TimerEnabled = False
    End Sub
 
    Private Sub Face_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Face.Click
 
    End Sub
 
    Private Sub Face_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Face.MouseDown
        MsgBox(e.Button = MouseButtons.Left)
    End Sub
 
    Private Sub MenuItem6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Remove_Field()
        Create_Field(17, 16, 40)
        Timer = 0
        TimerEnabled = False
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TimerEnabled And (Timer < 999) Then
            Timer += 1
            Me.Label2.Text = Mid(Trim((Timer + 1000).ToString), 2)
        End If
    End Sub
 
    Private Sub MenuItem7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Remove_Field()
        Create_Field(30, 16, 99)
        Timer = 0
        TimerEnabled = False
    End Sub
 
    Private Sub MenuItem4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Remove_Field()
        Create_Field(XX, YY, KolBomb)
        Timer = 0
        TimerEnabled = False
    End Sub
End Class