tempo fa mi ebbi un problema quando passai tutto il progetto su CD: l'immagine nn usciva e mi diceva errore "c:\\cover\cover.jpg", rimasi perplesso allora chiesi aiuto e mi postarono questo ma non ricordo chi:


Function Slash(ByVal Stringa As String) As String
If Len(Stringa) <> 3 And Right$(Stringa, 1) <> "\" Then
Slash = Stringa & "\"
Else
Slash = Stringa
End If
End Function

allora io aggiunsi:

Private Sub Form_Load()
Picture1.Picture = LoadPicture(Slash(App.Path) _
& "cover\cover.jpg")
End Sub

e il gioco era fatto...
cmq grazie (ho risolto il mio problema) e ciao