picture veranderen in code

[michiel74]

Hallo!

Ik wil dmv een filelistbox de achtergrond van mijn form kunnen veranderen. Ik heb een file list box en de volgende code

Private Sub File1_DblClick()
Dim sLokatie As String
sLokatie = "c:\" & File1.FileName
MsgBox (sLokatie)

Form1.Picture1 = LoadPicture(sLokatie)
End Sub


Private Sub Form_Load()
File1.Path = "D:\back" 'de map
If File1.ListCount > 0 Then
End If
End Sub

De MsgBox (sLokatie) even aangemaakt om te controleren of de locatie juist is, deze is juist.
Maar hoe krijg ik nu mijn achtergrond veranderd?

Thnx
Michiel

Edit:
Is gelukt.....