Столкнулся с непонятной проблемой, в форме access 2000 есть 400 элементов, еще один добавить не получается. Так и должно быть?

Пожалуйста... Это форма для игры в Го.

Dim frm As Form, ctl As Control, I As Integer
Set frm = Forms.Item(0)
For I = 1 To 19
Set ctl = CreateControl(frm.Name, acLine, acDetail, "", , 400, 400 * I, 7200, 0)
ctl.Name = "Ln_G_" & I
Next I
For I = 1 To 19
Set ctl = CreateControl(frm.Name, acLine, acDetail, "", , 400 * I, 400, 0, 7200)
ctl.Name = "Ln_V_" & I
Next I

For I = 1 To 19
For J = 1 To 19
Set ctl = CreateControl(frm.Name, acRectangle, acDetail, "", , 400 * I - 150, 400 * J - 150, 300, 300)
ctl.Name = "Stone_" & I & "_" & J
ctl.BackStyle = 1
ctl.BackColor = 255
ctl.SpecialEffect = 0
ctl.BorderStyle = 0
ctl.Visible = False
Next J
Next I

Все просто на самом деле, интерфейс к базе сделан на акцессе, операторы просили что нибудь для развлечения долгими зимними вечерами, что нибудь вроде лайнса или пасьянса.