怎样用代码向程序中加入Lable控件?

[fengyun6]

怎样用代码向程序中加入Lable控件,并给予制定固定的坐标,同时绑定数据库记录集的一个字段?
请举个例子,谢谢!!

[射天狼]

Private Sub Command1_Click()
'先在窗口上加一个LABEL控件,设置其INDEX属性为0,使其成为控件数组的第一个控件.
Dim num As Long

num = Label1.UBound + 1
Load Label1(num)
Label1(num).Visible = True

'用完了别忘了卸载
Unload Label1(num)
End Sub

[TIANHEI]

利用控件数组，用load加载控件。

[道素]

Option Explicit

Private WithEvents lbObj As Label

Private Sub lbObj_Click()
MsgBox "This is a dynamically Label."
End Sub

Private Sub Form_Load()
Set lbObj = Controls.Add("VB.Label", "lbObj")
With lbObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub

[lwm1977]

1.采用label数组
2.load