Gravar Figura de uma Picture em .JPG (URGENTE)

Tem uma dll bem simples q faz isso. O nome dela é "converter.dll".

Se não me engano tem na área de arquivos aqui no vbweb mas se não tiver é só falar que eu te mando.

A forma como eu uso é a seguinte:

botaoclick:

    If img.Picture = 0 Then
        Unload Me
        Exit Sub
    End If
    PictureNameBMP = "Nome.bmp"
    PictureNameJPG = "Nome.jpg"
    SavePicture img.Picture, PictureNameBMP
    BMPToJPG PictureNameBMP, PictureNameJPG, 80 'Qualidade Da imagem JPG
    FormFuncionarios.PathFoto = PictureNameJPG
    FormFuncionarios.Foto.Picture = LoadPicture(PictureNameJPG)
    Kill (PictureNameBMP)
    Unload Me