error vb example download

in the demo file vb6 i get the error
Compile error

Function or interface marked as restricted, or function uses an Automation type not supported in VB

in line
If objFTP.DownloadFile("History.txt", "History.txt", nRestartLo, nRestartHi) = sfFTPLib.enumError.ftpErrorSuccess Then

how can i resolve that