#If B4J
xui.SetDataFolder(%PROJECT_NAME%)
#End If
If File.Exists(xui.DefaultFolder,"YourIcon.png")=False Then
File.Copy(File.DirAssets, "YourIcon.png",xui.DefaultFolder,"YourIcon.png")
End If
B4XPages.GetNativeParent(Me).Icon = xui.LoadBitmap(xui.DefaultFolder, "YourIcon.png")