Visual Basic 6 - impostare sfondo in un form

salve, ho la necesità di impostare uno sfondo in una clipboard che occupa tutto il form e vorrei che lo sfondo possa essere caricato e deciso. sul forum ho trovato un modo per aprire i file con il CommonDialog, però non so come fare per far impostare l'imagine aperta nella clipboard. il codice è questo:

--------------Inizio Codice Modulo--------------- 
Sub ProceduraApri(file As String) 
Open file For Input As #1 
strTesto = Input(LOF(1), 1) 
Close 1 
frmAppuntiXP.txtTesto.Text = strTesto 
End Sub 
Sub Apri() 

With frmAppuntiXP.CommonDialog1 
.DialogTitle = "Apri" 
.CancelError = False 
.Filter = "File di testo|*.txt|Pagina Web|*.htm|Tutti i file|*" 
.ShowOpen 
If Len(.FileName) = 0 Then 
'Eventuale msgbox che avverte che il file non è stato salvato 
blnModifiche = True 
Else 
Call ProceduraApri(.FileName) 
End If 
End With 
End Sub 
----------------Fine Codice Modulo-------------- 



Poi nel form principale del programma ho inserito 



------------Inizio Code per aprire File----------- 

Private Sub mnuApri_Click() 
Apri 
End Sub 

-------------Fine Code per aprire File----------- 

questo però era per un file di testo. qualcuno mi saprebbe dire come fare?? grazie

per impostare lo sfondo del form è sufficiente cambiare la proprietà picture
con il commondialog fai così

commondialog.showopen
me.picture=commondialog.filename

non va, mi da un errore. qualcuno sa come posso fare??

che errore da???

ok ho controllato

devi usare il loadpicture
me.picture=loadpicture(commond.filename)

Ho risolto così:

With Form1.CommonDialog1
  .DialogTitle = "Seleziona lo sfondo da caricare"
  .CancelError = False
  .Filter = "Jpg (.jpg) |*.jpg|Bitman(.bmp)|*.bmp|Tutti i file (.*)|.* "
  .FilterIndex = 1
  .ShowOpen
  If Len(.FileName) = 0 Then
MsgBox "File non caricato", vbCritical, "Errore"
Exit Sub
Else
nome = .FileName
Form1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End With

funziona però se si seleziona annulla o si chiude la finestra da un errore perchè??

Potresti provare a mettere un On Error resume next

cioè?? potresti spiegarti meglio?? poi ho un altro problema, quando carico lo sfondo questo rimane nelle sue dimensioni non ci sarebbe un modo per far si che un immagine d qualsiesi dimensione si adatti al form?? grazie