Save image using Image Edit control

Hi,

I'm trying to save a picture using the image edit control that comes with VB6. I am using the SaveAs method to save the .jpg file under another name but I keep getting a 321 error Invalid File Format.

Here's my Code:
ImgEdit1.SaveAs "C:\My Documents\" & Text1.Text & ".jpg", wiFileTypeJPG

Any help is appreciated

THanks
ML

Unless you learn huffman coding and write yourself a .jpeg algorithm your not going to be able to save it as anything else other than a .bmp!

This works for me. With this control, I have always had better luck using the using numbers instead of any constants.

VB Code:

Option Explicit
 
Private Sub Command1_Click()
Dim strFile As String
 
    strFile = "C:\My Documents\" & Text1.Text & ".jpg"
    ImgEdit1.SaveAs strFile, 6, , 6, 1024
End Sub

Thanks for the help but I am still getting the same error message:
Run Time error '321':

Invalid File Format

Unable to execute the SaveAs method

Here's my code for the Save button on my form:

Private Sub cmdSave_Click()
Dim strFile As String

If Text1.Text = "" Then
MsgBox "No File Name Entered", vbOKOnly
Else:
strFile = "C:\My Documents\" & Text1.Text & ".jpg"
ImgEdit1.SaveAs strFile, 6, , 6, 1024
End If
End Sub

These are .jpg pictures to begin with so I am not trying to save them in a different format, just trying to rename them. I can get it to work as long as I don't try to save it to the .jpg format.

I'm not sure what the difference is, but at home where I'm running Win2K and VB with SP5 it runs fine. At work I'm using a Win98 machine and VB with SP4 and it comes up with the same error as what you are getting.