trasformare una img da jpg a bmp

[iguana13]

Dim Img as StdPicture
Set Img = LoadPicture("C:\Immagine.jpg")
Call SavePicture(Img,"C:\Immagine.bmp")
'Per eliminare la jpg, se vuoi
Kill "C:\Immagine.jpg"

Set Img = Nothing