Private Static Sub Form_Load()

    Dim i%
   
    'Initialize random number generator
    Randomize
   
    'Load buttons
    For i = 1 To MAX_SIZE ^ 2 - 1
        Load cmdButton(i)
    Next
   
    'Add combo box items
    For i = MIN_SIZE To MAX_SIZE
        cmbSize.AddItem i
    Next
   
    'Auto click in combo
    cmbSize.ListIndex = 1
    miSize = cmbSize.Text

End Sub