Coba bagian : pfName = ThisWorkbook.Path & "\" & CboName.Value ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
Diganti menjadi :
pfName = ThisWorkbook.Path & "\" & CboName.Value & ".jpg"
if lenb(dir$(pfname))<>0 then
ImgCL.Picture = LoadPicture(pfName)
endif
Wassalam.
Kid.
On Thu, Mar 29, 2012 at 08:17, nor hidayat <[email protected]>wrote:
> pfName = ThisWorkbook.Path & "\" & CboName.Value
> ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
>
