请大家看一下，我的动态创建label的程序，为什么创建5个在一行中只显示一个，但是当以列显示时却正常！是不是以行显示的时候相对位置错误

Question

Dim a As String
 For i = 1 To 5
  a = "label" & i
   form1.Controls.Add "vb.label", a
   With form1(a)
     .Visible = True
     .Caption = i
     .Width = 375
     .Top = 3600
     .Left = 1000*i
   End With
 Next i

Answer 1

Private Sub Command1_Click()
Dim a As String
Dim i As Integer For i = 1 To 5
  a = "label" & i
   Form1.Controls.Add "vb.label", a
   With Form1(a)
     .Visible = True
     .Caption = i
     .Width = 375
     .Top = 3600
     .Left = 1000 * i
   End With
 Next i
End Sub我试了下，可以得，是不是超出你的窗体边界了？最大话看看

Answer 2

我明白了，没有width，在动态创建中就是无法正确的显示出来创建的控件！谢谢你!