    Private Sub InitializeTextboxes()
      ' Przeznaczenie: zainicjalizowanie tablicy pól tekstowych.
      Dim i As Integer
      Dim MySize As Size

      MySize.Width = 30
      MySize.Height = 20
      For i = 1 To 81      ' ponieważ maksymalny rozmiar wynosi 9
        txtElement(i) = New TextBox()
        Me.Controls.Add(txtElement(i))
        txtElement(i).Size = MySize
        txtElement(i).TextAlign = HorizontalAlignment.Center
        txtElement(i).Visible = False
        txtElement(i).Name = "txtElement(" & CStr(i) & ")"
      Next i
      txtMagicNumber.Visible = False
      lblMagicNumber.Visible = False

    End Sub
