' Print results
Dim transfer As TransferEventArgs
For Each transfer In transferResult.Transfers
Messagebox.show ("Uploaded: " & transfer.FileName)
Next
End Using
Catch e As Exception
Messagebox.show (e.Message.ToString)
End Try