下面是我為你寫的一個函式,我用的名字是label1 設其index=0(讓它為一個數組控制元件)

Private Function CreateLable(nstr As String) As Integer

Dim i As Integer

Load Label1(Label1.Count)"這個是新增,如果重新排列 ,一個for 下面的改下!

With Label1(Label1.Count - 1)"如果要重新再排時,這裡稍作修改就行!

.AutoSize = True

.Caption = nstr

.Move IIf(Me.ScaleWidth > .Width + Label1(Label1.Count - 2).Left + Label1(Label1.Count - 2).Width, Label1(Label1.Count - 2).Left + Label1(Label1.Count - 2).Width, 0), _

IIf(Me.ScaleWidth > Label1(Label1.Count - 2).Left + Label1(Label1.Count - 2).Width + .Width, Label1(Label1.Count - 2).Top, Label1(Label1.Count - 2).Top + Label1(Label1.Count - 2).Height)

.Visible = True

End With

CreateLable = Label1.Count - 1

End Function