Arlan,

 

 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 & " bytes.") 
            'Copys the uploaded file to a new location.
            'args.CopyTo(path)
            'Opens the uploaded file's data stream.
            'System.IO.Stream data = args.OpenStream()
  End Sub