VB中如何动态添加多个picturebox控件

form1里面有button，panel，希望通过点击button，panel里面自动添加一个picturebox1,再次点击一次，panel里再增加个picturebox2，有源代码更好，不一定要picturebox控件，其他控件也行，只要功能相同的，，，

'Dim WithEvents NewText As TextBox
Private Sub Command1_Click()
For i = 1 To 4
sname = "Txt" & i
Set NewText = Controls.Add("VB.TextBox", sname)
NewText.Move 2000, 500 * i, 1000, 360
Controls(sname).Text = "文本框" & i
NewText.Visible = True
Next i
End Sub

Private Sub Command2_Click()
For i = 1 To 4
sname = "Cmdnew" & i
Set NewButton = Controls.Add("VB.CommandButton", sname)
NewButton.Move 500, 500 * i, 1000, 360
Controls(sname).Caption = "按钮" & i
NewButton.Visible = True
Next i
End Sub

Private Sub Command3_Click()
For i = 1 To 4
BqName = "Lbl" & i
Set Newlbl = Controls.Add("VB.Label", BqName)
Newlbl.Move 3500, 500 * i, 1000, 360
Controls(BqName).Caption = "标签" & i
Newlbl.Visible = True
Next i
End

'Set Newlbl = Controls.Add("VB.Label", BqName)中，Label可替换成工具箱中任意控件类名
更多VB代码可参阅我的博客：http://hi.baidu.com/zgmg/blog/item/c1a68eec0fabdb2b63d09f5b.html#

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/p8ps7vq87.html