Dim objFTP
Set objFTP = CreateObject("sfFTPLib.FTPConnectionSTA")
...
Set objFTP = Nothing

var objFTP = new ActiveXObject("sfFTPLib.FTPConnectionSTA");

CFTPConnectionMTA ftp = new CFTPConnectionMTA();

#import "libid:7A3A786C-EB8C-43b3-BC10-8D09ACF5D195"
// Note: Uncomment for Microsoft Visual Studio 6.0
//#import "C:\Program Files\SmartFTP FTP Library\sfFTPLib.dll"

::CoInitializeEx(0, COINIT_MULTITHREADED); // Init COM
sfFTPLib::IFTPConnectionPtr m_FTP;
m_FTP.CreateInstance(__uuidof(sfFTPLib::FTPConnectionMTA));
::CoUninitialize();