Abdul,
Image1.Picture = LoadPicture("")

NickHK

"Abdul"
groups.com...
I have the following to show a chart in a userform:

SetSourceData Source:=Range("MyRange")
.....

Fname = ThisWorkbook.Path & Application.PathSeparator & "Temp.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
.......

Image1.Picture = LoadPicture(Fname)

If "MyRange" is error or Null the how i can say the to remove the
current picture of image1 and just show empty image1

Thanks