Change form backround with common dialog

' Name your form Form1
 ' Load comdlg32.ocx
 ' Make a Command1
 ' Make a common dialog named CDialog
 
 Private Sub Command1_Click() 
   On Error GoTo fileOpenErrr 
    CDialog.CancelError = True 
    CDialog.FLAGS = &H4& Or &H100& 
    CDialog.DefaultExt = ".jpg" 
    CDialog.DialogTitle = "Select File To Open" 
    CDialog.Filter = "JPEG (*.jpg)|*.jpg|GIF (*.gif)|*.gif|BITMAP (*.bmp)|*.bmp" 
    CDialog.ShowOpen 
 Set Form1.Picture = LoadPicture(CDialog.filename) 
 fileOpenErrr: 
    Exit Sub 
 End Sub 
 
 ' This is what I use for a sort of skin effect on my programs.