>>407
ごめん。A1は取扱いないから考えたことない

Dim opEX As New XDW_CREATE_OPTION
opEX.nSize = Len(opEX)
XDW_CreateXdwFromImageFile(Path1, Path2, opEX) 'DWの作成

こんなんだもん・・・
でもnFitImageは仕様書の37Pに書いてあるよ
XDW_CREATE_USERDEF
XDW_CREATE_USERDEF_FIT
これ使えばいいんじゃ？