Not image found

I have problem here, When the image not found, then I want to show Image is not Available. But When the image not available is shown, I unable to clear that image before another image is shown. How to clear this?

Code:

---

Private Sub ListView3_ItemClick(ByVal item As MSComctlLib.ListItem)
 
  Pesttable.MoveFirst
  Pesttable.Move CLng(item.Index - 1)
    sTarikh = item.Text
    Command21.Enabled = True
    Command22.Enabled = True
    Form18.getID = Pesttable.Fields("id").Value
  Text21.Text = Pesttable.Fields("Nama Perosak").Value & ""
  Text23.Text = Pesttable.Fields("Nama Sintifik").Value & ""
  Text24.Text = Pesttable.Fields("Tanda serangan").Value & ""
    Picture2.Cls
    Picture2.AutoRedraw = True
    Picture2.ScaleMode = vbPixels
    On Error GoTo error3:
    Picture2.PaintPicture LoadPicture(Pesttable.Fields("Gambar")), 0, 0, 200, 200
    Exit Sub
error3:
    If Err.Number = 481 Then
    Dim strImagePath As String
    strImagePath = App.Path & "\ancaman padi\NoImage.gif"
    Picture2.Picture = LoadPicture(strImagePath)
    Picture2.AutoRedraw = False
    Picture2.Cls
    Exit Sub
    End If
End Sub

---

Quote:

---

Originally Posted by matrik02

vb Code:

error3:
    If Err.Number = 481 Then
    Dim strImagePath As String
    strImagePath = App.Path & "\ancaman padi\NoImage.gif"
    Picture2.Picture = LoadPicture(strImagePath)
    Picture2.AutoRedraw = False
    Picture2.Cls
    Exit Sub
    End If
End Sub

---

This images will never show because you clear the picturebox (line 7) right after you've loaded the image.

vb Code:

picture2.picture = loadpicture()

Quote:

---

Originally Posted by westconn1

vb Code:

picture2.picture = loadpicture()

---

You are right of course, my bad. :)