2我想做一个在显示面上指定数量的textbox或者是button

Question

2我想做一个在显示面上指定数量的textbox或者是button
怎么实现呀(load form里)
do while 
这里怎么写
loop

Answer 1

Load form的时候动态加载10个按钮的代码
Private WithEvents objCmd As CommandButton
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
  Set objCmd = Controls.Add("VB.CommandButton", "cmdNew" & i, Me)
  objCmd.Left = i * 200
  objCmd.Top = 100
  objCmd.Width = 180
  objCmd.Height = 300
  objCmd.Visible = True
Next
End Sub