よろしくお願いします。

現在、pcAnyWhereのOLEを使用してプログラムを書いています。
下記のようにした場合、接続はうまくいくのですが、
FileXferToHostメソッドが実行されたところで、処理が帰ってこなくなります。

Public Sub test()
    Dim strConnect As String
    Dim objRDM As Object
    Dim wait As Long
    Dim i As Integer

    strConnect = "C:\Documents and Settings\All Users\Application Data\Symantec\pcAnywhere\Remotes\test.CHF"

    Set objRDM = CreateObject("AWREM32.APPLICATION")

    i = objRDM.awConnect(strConnect)

    wait = Timer
    While Timer < wait + 5
        DoEvents
    Wend

    'ここで落ちます。
    i = objRDM.FileXferToHost("C:\sample\sample2.txt", "C:\sample\sample.txt")
        
    i = objRDM.awDisconnect
        
    Set objRDM = Nothing
End Sub

現象としては、この方と同じことが起きていると思います。
http://www.tek-tips.com/viewthread.cfm?qid=1180454&page=7
（海外のサイトです。）
もし、yongbumさんの言っている「the appropriate mode ie」の内容が分かる、
というのであれば、それもぜひ教えてください。
適切な設定、と言われても・・・と思うんですが、
「ie」ってのが、どうも気になります。

どうぞ、よろしくお願いします。

# 該当製品を所持していないので、回答とはいえません。

おそらく、"i.e."なのでは。
で、その部分がもしわからないとしても、他の部分で何をすべきかは
わかりますよね。それは行ったのですか?

ありがとうございます。

> で、その部分がもしわからないとしても、他の部分で何をすべきかは
> わかりますよね。それは行ったのですか?
はい。行って何度も試してはいるのですが、毎回結果は同じです。

> はい。行って何度も試してはいるのですが、毎回結果は同じです。

「何」を試しているのでしょうか? それで駄目ならば、提示したURLの
ものは参考になっていない、ということでは。

「OLEを動かす前に、pcanywhereを開いて適切なモード、すなわち
hostかremote、を選択する必要がある。」
となっていますよね。