以编程方式创建的Label将无法右对齐

Question

以编程方式创建标签（即不在设计器中）不会在我的表单上右对齐。

Set lblStatus = StatusForm.Controls.Add("VB.Label", "lbl" & xml(Prop, "column"))
With lblStatus
    .Visible = True
    .Caption = Text
    .Alignment = vbRightJustify
    .WordWrap = False
    .AutoSize = True
    .top = Index * (lblStatus.height)
    .left = MaxWidth - Screen.TwipsPerPixelX * 15
    .Width = StatusForm.TextWidth(Text)
End With

我创建了其中三个控件，但是它们继续从左侧而不是从右侧扩展：

理想情况下，我希望这些标签（由#包围）的分号对齐。

Answer 1

由于将AutoSize设置为true，因此宽度被设置为文本的精确宽度，没有对齐空间。

要在固定宽度内布置文本，请关闭“自动调整大小”。