Adding Pictures

[jeb2022]

how would i make it so that it adds a picture box with a picture loaded onto the form, without me puttin the box on the form before i run the program?

[peet]

http://www.vbforums.com/showthread.p...ht=picturebox1

[MarkT]

The thread peet gave pretty much covers it but since I already typed this out here you go.

Option Explicit
 
Dim WithEvents cmd As CommandButton
Dim pic As PictureBox
 
Private Sub cmd_Click()
    Set pic = Controls.Add("VB.PictureBox", "pic")
    With pic
        .Top = cmd.Height
        .Left = 0
        .AutoRedraw = True
        .AutoSize = True
        .Picture = LoadPicture("C:\My Documents\logo.bmp")
        .Visible = True
    End With
        
End Sub
 
Private Sub Form_Load()
    Set cmd = Controls.Add("VB.CommandButton", "cmd")
    With cmd
        .Left = 0
        .Top = 0
        .Caption = "Add Picture"
        .Visible = True
    End With
End Sub