Veja se ajuda :
Crie um form
1 Picture (pctImagem)
2 Command (cmdAbrir e cmdSalvar)
2 text (txtOrigem e txtSalvar)
Private Sub cmdAbrir_Click()
pctImagem.Picture = LoadPicture(txtOrigem.Text)
End Sub
Private Sub cmdSalvar_Click()
SavePicture pctImagem.Picture, txtSalvar.Text
End Sub
Basta vc colocar o endereço do arquivo de origem no txtOrigem
(Ex: C:WINDOWSDesktopimagem.jpg) e clicar no cmdAbrir, ao
vizualizar o arquivo no pctImagem, vc escreve no txtSalvar o destino(Ex: C:WINDOWSDesktopdentino.bmp) e clica em cmdSalvar e pronto !!!!!