关于Label控件相对窗体位置问题

Question

新手学VB，请教一个问题：
怎样设置label控件在窗体的中间，无论窗体运行后大小怎么变化，label控件永远在窗体的中间。我在Form_Resize()方法里使用了：Private Sub Form_Resize()
    With label.Item
    .Top = (Me.Height - .Height) / 2
    .Left = (Me.Width - .Width) / 2
    End With
End Sub但总是报错，“.Item”编译错误：必选参数，这是怎么回事啊？

Answer 1

如果是数组就with label1(下标)

Answer 2

Option ExplicitPrivate Sub Form_Load()
    Me.Font.Name = "黑体"
    Me.Font.Size = 48
    Label1.Caption = "中间"
    Label1.AutoSize = True
    Label1.Font.Name = Me.Font.Name
    Label1.Font.Size = Me.Font.Size
End SubPrivate Sub Form_Resize()
    With Label1
     .Top = (Me.Height - Me.TextHeight(Label1.Caption)) / 2
     .Left = (Me.Width - Me.TextWidth(Label1.Caption)) / 2
    End With
End Sub

Answer 3

用With Label1，按.后，系统不会自动跳出TOP这一项，只有加了.Item后才可以加.Top

Answer 4

.Caption编译错误，未找到方法或数据成员。
Label1.后面系统给出的提示是Count，Item，LBound和UBound这四项，其它的都没有！

Answer 5

.Caption编译错误，未找到方法或数据成员。
Label1.后面系统给出的提示是Count，Item，LBound和UBound这四项，其它的都没有！

Answer 6

把.item去掉
或者直接: label.move x,y,width,heigh

Answer 7

后面有个image1布满整个窗体作为背景图片的，如下：
Private Sub Form_Resize()
    With Image1
    .Top = 0
    .Left = 0
    .Height = Me.Height
    .Width = Me.Width
    End With
End Sub
label是我双击工具箱里的控件直接添加的，应该不是控件数组吧。

Answer 8

去掉了.Item就会出现编译错误，未找到方法或数据成员。
直接用label.move也同样出现.move编译错误！

Answer 9

哦，好像是数组的原因，呵呵！！！2了。
有3个label，是鼠标拖动并按住ctrl复制的，现在改好了，不是数组就能直接出现.top了。
万分感谢！！！