Как преобразовать рисунок из "png" в "bmp" или в "jpg"? - VB

Формулировка задачи:

Есть программка, которая ставит обои рабочего стола на выбор пользователя, она может поставить только "jpg" и "bmp", так как "png" тоже часто используемый формат, нужно сконвертировать в один из доступных форматов и положить в какую-нибудь папку. Если у вас есть пример программы, которая ставит обои рабочего стола с поддержкой формата "png", тоже можете выложить тут. Заранее спасибо!

Решение задачи: «Как преобразовать рисунок из "png" в "bmp" или в "jpg"?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
ProcedureDLL AttachProcess(Instance)
  UsePNGImageDecoder()
  UseJPEGImageEncoder()
EndProcedure
 
ProcedureDLL PngToBmp(File.s)
  Result = LoadImage(#PB_Any, File)
  If Result
    Result = SaveImage(Result, Left(File, Len(File)-Len(GetExtensionPart(File)))+"bmp", #PB_ImagePlugin_BMP)
    FreeImage(Result)
  EndIf
  ProcedureReturn Result
EndProcedure
 
ProcedureDLL PngToJpg(File.s, Flag)
  Result = LoadImage(#PB_Any, File)
  If Result
    Result = SaveImage(Result, Left(File, Len(File)-Len(GetExtensionPart(File)))+"jpg", #PB_ImagePlugin_JPEG, Flag)
    FreeImage(Result)
  EndIf
  ProcedureReturn Result
EndProcedure