怎样用代码实现让一个Picturebox作为 里面再装一个picture

Picture1.Picture = Picture2

不行,这样做不行

不知道你要什么效果？

试试这个：
Private Sub Command1_Click()
Me.Controls.Add "vb.PictureBox", "Pic2", Picture1

With Me!Pic2
.Left = 0
.Top = 0
.Width = Picture1.Width
.Height = Picture1.Height
.Picture = LoadPicture("C:\Documents and Settings\hyhwrfhd\My Documents\My Pictures\16.jpg")
.Visible = True

End With

End Sub

其中：me代表form1，Pic2代表加载的PictureBox控件。

路过，学习了，hyhhd 真行啊

确实厉害.啊...