nteger li_file,li_ret,loops,i string ls_file,ls_path blob lb_small long flen,bytes_read,new_pos //search the file li_ret = getfileopenname("選擇圖片文件",ls_path,ls_file, &"BMP","圖片文件(*.BMP),*.BMP") if li_ret = 1 then