Option Explicit
Private Sub Form_Load()
Dim pc As Control
Set pc = Controls.Add("VB.PictureBox", "MyPicture")
pc.Left = 100
pc.Top = 100
pc.Width = 10000
pc.Height = 6000
pc.Picture = LoadPicture("C:\Users\Ramdas\Pictures\nr_visiting_card0002.jpg")
pc.Visible = True
End Sub