试试这个:
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