Private CC As ContentChooser
CC.Initialize("CC")
CC.Show("image/*", "Choose image")
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
File.Copy(Dir, FileName, File.DirInternal, FileName)
Else
Log("Error")
End If
End Sub