filexfertohost hangs any workarounds ?

[rambleon]

I have the following code:

Private Sub Command1_Click()
Dim oTestApp As Object
Dim strHost, strRemote, Err As String
Dim bResult As Boolean
Dim con, cnt As Integer
Set oTestApp = CreateObject("Awrem32.Application")
bResult = oTestApp.awConnect(chfFile)
cnt = 0
con = 0
Do Until con = 1 Or cnt > 30
cnt = cnt + 1
pause (1)
con = oTestApp.ConnectionStatus
Loop
pause (5)
If cnt > 30 Then
MsgBox "Unable to establish connection "
Exit Sub
End If
pause (25)
bResult = oTestApp.FileXferToHost("D:\PRT\MIFALID.DAT", "C:\PRT\MIFALID.DAT")

I found in other cases that varying the length of the pause helped, here it doesn't make any difference.
I get to FileXferToHost and that's it, it hangs there
- File Transfer waiting - without actually transfering anything until I phisicaly close the connection.
The setup is remote PCA 11, Windows XP calls Host PCA 10.5 Windows 2000 using the above VB code.
The same code works at several installations, and at others
I have the above problem.
I can't see any common factor at those installations where it doesn't work, if I use pcanywhere, file transfer manualy
everything works fine, its just VB OLE that's the problem.
All comments and suggestions greatly appriciated.