Uses wodFtpDLX ActiveX Component

Dim WithEvents wodFtpDLX As wodFtpDLXCom
Private Sub Form_Load()
    Set wodFtpDLX = New wodFtpDLXCom

    ' Set connection parameters
    wodFtpDLX.HostName = "xx"
    wodFtpDLX.Login = "xx"
    wodFtpDLX.Password = "xx"
    wodFtpDLX.Protocol = FTP

    ' Initiate the connection
    wodFtpDLX.Connect
End Sub

' Connected event is triggered when Connection is successful/or fails. If connection failed
' ErrorCode will be <> 0, and in that case, ErrorText will contain description of an error
' which occured.
Private Sub wodFtpDLX_Connected(ByVal ErrorCode As Long, ByVal ErrorText As String)
    If ErrorCode = 0 Then
        wodFtpDLX.GetFile "C:\", "/home/remote_filename"
    End If
End Sub

' When method finishes execution, Done event is triggered. This is where we will disconnect.
Private Sub wodFtpDLX_Done(ByVal ErrorCode As Long, ByVal ErrorText As String)
    wodFtpDLX.Disconnect
End Sub

Private Sub wodFtpDLX_Progress(ByVal Position As Long, ByVal Total As Long)
    Debug.Print Position & " / " & Total
    ' Abort transfer once 50% of file size is transferred.
    If Position > Total / 2 Then
        wodFtpDLX.Abort
    End If
End Sub

Uses wodFtpDLX ActiveX Component

private WeOnlyDo.Client.FtpDLX wodFtpDLX;
private void Form1_Load(object sender, EventArgs e)
{
    wodFtpDLX = new WeOnlyDo.Client.FtpDLX();

    // Declare events
    wodFtpDLX.ConnectedEvent +=new WeOnlyDo.Client.FtpDLX.ConnectedDelegate(wodFtpDLX_ConnectedEvent);
    wodFtpDLX.DoneEvent +=new WeOnlyDo.Client.FtpDLX.DoneDelegate(wodFtpDLX_DoneEvent);
    wodFtpDLX.ProgressEvent +=new WeOnlyDo.Client.FtpDLX.ProgressDelegate(wodFtpDLX_ProgressEvent);

    // Set connection parameters
    wodFtpDLX.Hostname = "xx";
    wodFtpDLX.Login = "xx";
    wodFtpDLX.Password = "xx";
    wodFtpDLX.Protocol = WeOnlyDo.Client.Protocols.FTP;

    // Initiate the connection
    wodFtpDLX.Connect();
}

// When method finishes execution, Done event is triggered. This is where we will disconnect.
void wodFtpDLX_DoneEvent(object Sender, WeOnlyDo.Client.FtpDoneArgs Args)
{
    wodFtpDLX.Disconnect();
}

// Connected event is triggered when Connection is successful/or fails. If connection failed
// Args parameter will contain exception of an error
void wodFtpDLX_ConnectedEvent(object Sender, WeOnlyDo.Client.FtpConnectedArgs Args)
{
    wodFtpDLX.GetFile("C:\\", "/home/remote_filename");
}

// Progress event will will be triggered multiple times, providing you with amount of data
// transferred so far, as well as size of the file being uploaded.
void wodFtpDLX_ProgressEvent(object Sender, WeOnlyDo.Client.FtpProgressArgs Args)
{
    Console.WriteLine(Args.Position + " / " + Args.Total);

    // Abort transfer once 50% of file size is transferred.
    if(Args.Position > (Args.Total / 2))
    {
    wodFtpDLX.Abort();
    }
}

Uses wodFtpDLX ActiveX Component

Dim WithEvents wodFtpDLX As WeOnlyDo.Client.FtpDLX
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wodFtpDLX = New WeOnlyDo.Client.FtpDLX
   
    ' Set connection parameters
    wodFtpDLX.Hostname = "xx"
    wodFtpDLX.Login = "xx"
    wodFtpDLX.Password = "xx"
    wodFtpDLX.Protocol = WeOnlyDo.Client.Protocols.FTP
    
    ' Initiate the connection
    wodFtpDLX.Connect()
End Sub

' Connected event is triggered when Connection is successful/or fails. If connection failed
' Args parameter will contain exception of an error
Private Sub wodFtpDLX_ConnectedEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Client.FtpConnectedArgs) Handles wodFtpDLX.ConnectedEvent
    wodFtpDLX.GetFile("C:\\", "/home/remote_filename")
End Sub

'When method finishes execution, Done event is triggered. This is where we will disconnect.
Private Sub wodFtpDLX_DoneEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Client.FtpDoneArgs) Handles wodFtpDLX.DoneEvent
    wodFtpDLX.Disconnect()
End Sub

' Progress event will will be triggered multiple times, providing you with amount of data
' transferred so far, as well as size of the file being uploaded.
Private Sub wodFtpDLX_ProgressEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Client.FtpProgressArgs) Handles wodFtpDLX.ProgressEvent
    Debug.Print(Args.Position & " / " & Args.Total)

    ' If uploaded size is 50% of whole transfer, abort the file transfer.
    If Args.Position > (Args.Total / 2) Then
        wodFtpDLX.Abort()
    End If
End Sub