Är osäker på i vilket event som triggas vig markerin tror det antingen är Change eller Click. ÄR inte heller säker på egenskapen för filnamnet. Skall vara:Sv: Filhantering
Men det är något sånt här, Typ:
Private sub Filelist1_Change()
Set Picture1.Picture = LoadPicture(Filelist1.Filename)
End SubSv: Filhantering
Option Explicit
Private Sub File1_Click()
Set Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub
Private Sub Form_Load()
File1.Pattern = "*.bmp"
File1.Path = "C:\WINDOWS"
End Sub