I have problem here, How to fix the image to the picture box, My picturebox change it size when loading the image. How to fix this size of image to fix with picturebox scale?


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
Set Picture2 = Nothing 'clear the image
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)
Exit Sub
End If

End Sub