Hola lo unico que tienes que hacer es:
cRutImg= GETFILE("BMP;JPG;Gif","Asignar imagenes","Abrir")
if !empty(cRutImg)
*-------------Mostrando la imagen--------------------------
Thisform.Img1.Picture = cRutImg
*------------Agregar a la Tabla y el registro seleccionado
Select TbAlumno
APPEND GENERAL AlumFoto FROM cRutImg
endif
Espero haverte ayudado...
Atentamente,
Russvell Jesus Soto Gamarra
Ing. Computación y Sistemas
Tel.: (511)4814114
Cel.: (511)999161243