Dim ImageFiles() As String=Array As String("CkFalse.png", "CkTrue.png", "logoinn.png", "TxtSepar.png")
CopyAssetsToTemp(ImageFiles)
...
...
Private Sub CopyAssetsToTemp(Filenames() As String)
Dim i As Int
For i=0 To Filenames.Length-1
If Not(File.Exists(tpPath, Filenames(i))) Then
File.Copy(File.DirAssets, Filenames(i), tpPath, Filenames(i))
End If
Next
End sub