如何动态地贴上label？？

Question

Dim label11 As New Label1
    lable11.Caption = CStr(i)
    label11.Top = Y
    label11.Left = X
    label11.Width = W
    label11.Height = H / 2
这样哪里不对，应如何修改？

Answer 1

me.Controls.Add "VB.label", "label1"
   With Form1!label1
      .Visible = True
      .top=Y
      .left=X
      .Width = W
      .Height=H/2
      .Caption = "New Label"
   End With

Answer 2

设定label1的index＝0
之后，load label1（i）就出来了

Answer 3

定义一个名为label1的数组然后：   Load label1(i)就可以了。

Answer 4

也可以先在窗体上添加一个label，将其index设置为0，然后for i=1 to num
load label(i)
label(i).move 20,0 '向左移动
label(i).visible=true应该没错了。