Ivica:

replace Code

ImgPath = list1.Value

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Ivica Lopar" wrote:

I wont when I click item on List1 to have view of picture in Image 1.
Where I am mistaken.



Private Sub list1_Click()
Dim ImgPath
If list1.ListIndex = -1 Then Exit Sub
ImgPath = list1.List
Image1.Picture = StdFunctions.LoadPicture(ImgPath)


regards
Lopar