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

Uses wodFtpDLX.NET 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);

    // 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");
}

Uses wodFtpDLX.NET 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