1000 butonu tek tek eklemek yerine aşağıdakine benzer bir kodu kullanabilirsiniz:
uzunluk, genişlik vs vs gibi değerleri girmezseniz varsayılan ayarları kullanır
diğer özellikleri de Visible gibi buradan ayarlayabilirssiniz
.CreateControl (FormAdı, NesneTürü(metnKutusu-Buton_listeKutusu vsvs), EkleneceğiBölge(başlıkkısmına-anagövde-alttbölge), Parent, ColumnName, SolaMesafe, ÜsteMesafe, Genişlik, Yükseklik)

Dim CtName As String

FrmAdi = "Form1"

DoCmd.OpenForm FrmAdi, acDesign



For X = 1 To 1000

CtName = "BtnAdi_" & X



Set ctlCheck = CreateControl(FrmAdi, acCommandButton, , , "") ', CtLeft, CtTop, CtlWidth, CtlHeight)

ctlCheck.Name = CtName

'With ctlCheck

'    .Name = "BtnGun" & X

'    .Top = CtlUst + DkyArlk * ((X - 0.6) \ 7)

'    .Left = CtlSol + YtyArlk * ((X - 0.6) Mod 7)

'End With

Next X