Not image found

[matrik02]

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?

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

[Jottum]

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.

[westconn1]

picture2.picture = loadpicture()

[Jottum]

picture2.picture = loadpicture()

You are right of course, my bad.