Hi guys
it works!!!
c = StrIndexOf (r ,".jpg",0)
If c = -1 Then
AddLabel("Panel1", "'" & Label & "'" ,0,row, 800, 15, r)
Else
AddArrayList("A1")
A1.Add(AppPath & "\" & r)
AddImage("Panel1",image ,0,row, 420, 120)
Control(image).image = A1.Item(0)
row = row + 45
End If
I have made an terrible mistake, i read an file and compaire each row
i the row contains .jpg then put an image on the panel and show it
because the image was one wich i have taken in 3 mega pix (high res) and the size of it, i saw only one part of the picture and that one was one of the
left upper corner wich was only black (grey) i though it didn't load the picture at all, stupid me..
:sign0013::sign0148: