Immagine problema

[pacixone]

raga ho questa situazione
-------
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

Private Sub Picture1_GotFocus()
Picture1.Picture = LoadPicture(Slash(App.Path) _
& "cover\cover.jpg")
End Sub
----------
Però quando eseguo il progetto, devo lo stesso cliccare per visualizzare l'immagine (nonostante io abbia messo GOTFOCUS)

[Mychy]

Prova a richiamare la funzione da form_load()

[pacixone]

cosa devo fare? mi puoi spiegare meglio per favore sono uno neo. grazie

[Mychy]

Se tu vuoi che l'immagine venga caricata allapertura del form, devi mettere l'istruzione all'interno della sub form load, cioè:

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

[pacixone]

grazie