B4J Question Dragging images/text to other apps

Sub DragSourceImage_DragDetected (Event As MouseEvent)
    File.Copy(File.DirAssets, "logo.png", xui.DefaultFolder, "logo.png")
    SetFilesAsData(DragAndDropImage, Array(File.Combine(xui.DefaultFolder, "logo.png")))
End Sub

Sub SetFilesAsData (DD As DragAndDrop, Files As List)
    Dim JFiles As List
    JFiles.Initialize
    For Each f As String In Files
        Dim jf As JavaObject
        jf.InitializeNewInstance("java.io.File", Array(f))
        JFiles.Add(jf)
    Next
    DD.SetDragModeAndData(TransferMode.COPY, Array As String("application/x-java-file-list"), Array(JFiles))
End Sub