Continuing with your poorly though out solution, eh?
Well, hers example code for doing precisely what you have asked for (plus some minor alternatives)
Private Sub Command1_Click()
Dim picbox
Set picbox = Me.Controls.Add("VB.PictureBox", "PIC1")
picbox.Move 0, 0, 100, 100...