Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs )
  Dim ftp As New AsyncFtpClient()
  Dim result As IAsyncResult = ftp.BeginConnect( "ftp.server.com", Nothing, Nothing )
  
  While Not result.IsCompleted
    Application.DoEvents()
  WEnd
    
  ftp.EndConnect( result )
    
  result = ftp.BeginLogin( Nothing, Nothing )
  
  While Not result.IsCompleted 
    Application.DoEvents()
  WEnd
    
  ftp.EndLogin( result )
  
  result = ftp.BeginGetDownloadStream( "test.txt", 0, New AsyncCallback( AddressOf Me.end_download ), ftp )
  
  While Not result.IsCompleted 
    Application.DoEvents()
  WEnd
    
  result = ftp.BeginDisconnect( Nothing, Nothing )
  
  While Not result.IsCompleted 
    Application.DoEvents()
  WEnd
    
  ftp.EndDisconnect( result )
End Sub

Private Sub end_download( ByVal result As IAsyncResult )
  Dim client As AsyncFtpClient = result.AsyncState

 Try
     Dim stream As System.IO.Stream = client.EndGetDownloadStream( result )
    
     Dim buffer(32768) As Byte
     Dim bytesRead As Integer = 0
      
     ' Loop until we have nothing more to read from the source stream.
     ' We are assuming that the data contained in the file is text
     Dim data As String = string.Empty
     Do
       bytesRead = stream.Read(buffer, 0, buffer.Length)
      
       If bytesRead > 0 Then
         data += System.Text.Encoding.ASCII.GetString( buffer )
       End If
     Loop Until bytesRead = 0          
      
     System.Diagnostics.Debug.WriteLine( data )
      
     stream.Close()
   Catch exception As Exception
     System.Diagnostics.Debug.WriteLine( exception.Message )
   End Try
 End Sub