怎样在程序中动态的创建、删除控件？

[lovecure]

怎样在程序中动态的创建、删除控件？请给出的例子。
虽然以前问过，但还是不明白？没办法。

[northwolves]

'add there codes for a new form,then run it

Private WithEvents picture1 As PictureBox
Private WithEvents cmdok As CommandButton
Private WithEvents cmdcancel As CommandButton



Private Sub cmdok_Click() 'delete cmdcancel

If cmdcancel Is Nothing Then
Else
Me.Controls.Remove cmdcancel
Set cmdcancel = Nothing
End If

End Sub

Private Sub Form_Click() 'delete cmdok
If cmdok Is Nothing Then
Else
Me.Controls.Remove cmdok
Set cmdok = Nothing
End If
End Sub

Private Sub Form_Load()
Set picture1 = Me.Controls.Add("VB.picturebox", "picture1", Me)
picture1.Visible = True
picture1.Move 2000, 2000, 3000, 2000
Set cmdok = Me.Controls.Add("VB.CommandButton", "cmdOk", picture1)
cmdok.Visible = True
cmdok.Move 100, 100, 1000, 500
cmdok.Caption = "确认(&Y)"
Set cmdcancel = Me.Controls.Add("VB.CommandButton", "cmdcancel", picture1)
cmdcancel.Visible = True
cmdcancel.Move 1200, 100, 1000, 500
cmdcancel.Caption = "取消(&C)"
End Sub

[lovecure]

谢谢各位！

[lovecure]

再次感谢

[leo_hao]

这是用控件数组的方法吧?

[linfuyong]

northwolves(野性的呼唤) Me.Controls.Add有这个方法？
我试过不幸

[csdnHelp]

msdn!!!!

[antshome]

添加一个控件，将index属性设为0

则 load 控件名(1) 即可创建一个新的控件
unload 控件

[antshome]

unload 控件名(1) 即可删除刚创建的控件

注意 index为0的控件不可删除