跪求答案，在线等待，不够可加分

Question

使用以下方法在窗体中动态创建一个PictureBox，并在PictureBox中动态创建一个Label，但此时Label确看不见，哪个高手帮忙看看以下的程序，谢谢.
    Dim ctlNew As Control
    Dim ctlNew1 As Control
    Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew")
    ctlNew.left = 0
    ctlNew.top = 0
    ctlNew.Width = Me.Width
    ctlNew.Height = 200
    ctlNew.Visible = True
    ctlNew.AutoSize = True
    ctlNew.BorderStyle = 0
    ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew")    
    ctlNew1.Caption = Me.Caption
    ctlNew1.AutoSize = True
    ctlNew1.BackStyle = 0
    ctlNew1.left = Me.Width / 2 - ctlNew1.Width / 2
    ctlNew1.top = 100
    ctlNew1.Visible = True
    ctlNew1.ZOrder 0

Answer 1

Dim ctlNew As Control
    Dim ctlNew1 As Control
    Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew")
    ctlNew.Left = 0
    ctlNew.Top = 0
    ctlNew.Width = Me.Width
    ctlNew.Height = 400
    ctlNew.Visible = True
    ctlNew.AutoSize = True
    ctlNew.BorderStyle = 1
    'ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew")
    ctlNew1.Caption = Me.Caption
    Set ctlNew1.Container = ctlNew '把label放到picture中
    ctlNew1.AutoSize = True
    ctlNew1.BackStyle = 0
    ctlNew1.Left = Me.Width / 2 - ctlNew1.Width / 2
    ctlNew1.Top = 0
    ctlNew1.Visible = True
    ctlNew1.ZOrder 0

Answer 2

    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew")    
-->
    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew",ctlNew)    

Answer 3

Private Sub Form_Load()
    Dim ctlNew As Control
    Dim ctlNew1 As Control
    Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew")
    ctlNew.Left = 0
    ctlNew.Top = 0
    ctlNew.Width = Me.Width
    ctlNew.Height = 200
    ctlNew.Visible = True
    ctlNew.AutoSize = True
    ctlNew.BorderStyle = 0
    ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew", ctlNew)
    ctlNew1.Caption = Me.Caption
    ctlNew1.AutoSize = True
    ctlNew1.BackStyle = 0
    ctlNew1.Left = Me.Width / 2 - ctlNew1.Width / 2
    ctlNew1.Top = 100
    ctlNew1.Visible = True
    ctlNew1.ZOrder 0End Sub

Answer 4

Private Sub Form_Load()
    Dim ctlNew As Control
    Dim ctlNew1 As Control
    Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew")
    ctlNew.Left = 0
    ctlNew.Top = 0
    ctlNew.Width = Me.Width
    ctlNew.Height = 200
    ctlNew.Visible = True
    ctlNew.AutoSize = True
    ctlNew.BorderStyle = 0
    ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew", ctlNew)
    ctlNew1.Caption = Me.Caption
    ctlNew1.AutoSize = True
    ctlNew1.BackStyle = 0
    ctlNew1.Left = Me.Width / 2 - ctlNew1.Width / 2
    ctlNew1.Top = 100
    ctlNew1.Visible = True
    ctlNew1.ZOrder 0End Sub

Answer 5

Dim ctlNew As Control
    Dim ctlNew1 As Control
    Set ctlNew = Me.Controls.Add("VB.PictureBox", "picNew")
    ctlNew.Left = 0
    ctlNew.Top = 0
    ctlNew.Width = Me.Width
    ctlNew.Height = 400
    ctlNew.Visible = True
    ctlNew.AutoSize = True
    ctlNew.BorderStyle = 1
    'ctlNew.Picture = LoadPicture(App.Path & "\icon\pic.jpg")
    Set ctlNew1 = Me.Controls.Add("VB.Label", "LabelNew")
    ctlNew1.Caption = Me.Caption
    Set ctlNew1.Container = ctlNew '把label放到picture中
    ctlNew1.AutoSize = True
    ctlNew1.BackStyle = 0
    ctlNew1.Left = Me.Width / 2 - ctlNew1.Width / 2
    ctlNew1.Top = 0
    ctlNew1.Visible = True
    ctlNew1.ZOrder 0