AddHandler ftp.TransferStarted, AddressOf transfer_started
AddHandler ftp.TransferComplete, AddressOf transfer_complete
Private Sub transfer_started(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.lblprogress.Text = "Transfer Started"
End Sub
Private Sub transfer_complete(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.lblprogress.Text = "Transfer Complete"
End Sub