Please use the following code:

 

    Private Sub Uploader_FileUploaded(ByVal sender As Object, ByVal args As UploaderEventArgs)
        Dim uploader As Uploader = DirectCast(sender, Uploader)
        InsertMsg("File uploaded! " & args.FileName & ", " + args.FileSize.ToString() & " bytes.")
   
        'Copys the uploaded file to a new location. 
        'args.CopyTo("c:\\temp\\"& args.FileName)
        'You can also open the uploaded file's data stream.
        'System.IO.Stream data = args.OpenStream()
    End Sub