Private Async Sub ShowMemberToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowMemberToolStripMenuItem.Click
    For Each C As ListViewItem In listfile.SelectedItems


        Dim sharefolder = Await A.Files.GetMetadataAsync(direktori.Text & "/" & C.Text)
        Dim sharedfolderid = sharefolder.AsFolder.SharedFolderId.ToString
        If sharedfolderid = String.Empty Then
            MessageBox.Show("Not Shared Folder")
        Else
            Dim member = A.Sharing.ListFolderMembersAsync(sharedfolderid, limit:=100).Result.Users
            Dim list = String.Join(",", member.ToArray())
            MessageBox.Show(list)
        End If
    Next
End Sub