Sub Activity_Create (FirstTime As Boolean)
Set_App 'richiamo questa funzione, di cui sotto
Set_Layout
'altro codice
End Sub
Sub Set_App
If File.Exists("percorso","abc.de") = False Then 'Primo avvio
Dim ro As Object = Msgbox2Async("File di avvio non trovato." & CRLF & "Utilizzare il fle di default?","File mancante","SÌ","","NO",Null,False)
Wait For (ro) Msgbox_Result (res As Int)
If res = DialogResponse.POSITIVE Then
'ecc ecc
End Sub