:/

I'm trying to save a picture in a picturebox

Code:
Private Sub mnuSave_Click()
cdlDialog.Filter = "Images (*.jpg) | *.jpg"
cdlDialog.ShowSave ' show save dialog box..cm
SavePicture picImg.Picture, cdlDialog.FileName
End Sub
I'm getting error 380 "Invalid Property Value".