Private Sub frmMagicSquare_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
  Dim ctl As Control
  Dim i As Integer

  InitializeTextboxes()

  For Each ctl In Controls
    Console.WriteLine(CStr(i) & " = " & Controls(i).Name)
    i += 1
  Next

End Sub
