はまっております。
大変申し訳ございませんが、アドバイスをお願い申し上げます。

CreateFileAは成功し、ハンドルが戻りました。

しかし、以下のような定義をしますと、実行時に
「アプリケーションのランタイムエラー(R0010)
  readfileがサポートしていない型の引数があります。」
となります。

そこで、2番目のパラメータのデータ型をanyからstringに変えました。
（定義も、パラメータのセットのところも）
すると、上記のエラーは出ませんが、戻り値が0(zero)となります。
これはエラーということだと思います。

WriteFileでも同じ現象が起きました。
何が問題なのか、分かりません。

どうか、よろしくお願い申し上げます。

------
FUNCTION long ReadFile(long hFile, &
                       any  lpBuffer, &
                       long nNumberOfBytesToRead, &
                       long lpNumberOfBytesRead, &
                       long lpOverlapped) &
         LIBRARY \"kernel32\"

ll_rtn = ReadFile(gl_hcom, &
                  la_buffer, &
                  36, &
                  36, &
                  0)

gl_hcom はlong型で、CreateFileAの戻り値を格納しています。
la_buffer はany型です。
------