>854

その行は省いて、

Set obj = Controls.Add(Name , "Hoge", Form1.Picture1)

とかで、いけると思うぞ。