FoxPro/Visual FoxPro - abrir

como puedo hacer que con un bototon pueda abrir un cuadro de dialogo, abrir una imagen,darle un nuevo nombre y poder guardarla en otra carpeta.

alguien me podria explicar como hacerlo y con codigo.

mil bessos .
bay

Algo asi funciona

ximagen = GETPICT()
oShell = createobject("WScript.Shell")
oShell.Run('MSPAINT.exe "&ximagen"',3,.T.)

tambien puedes guardarla en la memoria con esta funcion y asi no tienes necesidad de abrirla

toPicture = LoadPicture(FORM.IMAGE.PICTURE)

CF_BITMAP = 2
Declare Long OpenClipboard In user32 Long hWnd
Declare Long CloseClipboard In user32
Declare Long EmptyClipboard In user32
Declare Long SetClipboardData In user32 Long uFormat, Long hMem
Declare Long CopyImage In user32 Long, long, long, long, long

If OpenClipboard(0) = 0
Error "Cannot open clipboard"
EndIf
EmptyClipboard()

If toPicture.Type = 1 && Bitmap
h = CopyImage(toPicture.Handle, 0, 0, 0, 0)
SetClipboardData(CF_BITMAP, h)
EndIf
CloseClipboard()

clear dlls
toPicture =null

Suerte