Sub Panel12_Click
' Panel12.Color=Colors.RGB(255,215,0)
Dim result As Int
result = Msgbox2("Confermi uscita Programma?", nomeprog, "Si", "", "No",LoadBitmap (File.DirAssets, "warning_small.png"))
If result = DialogResponse.Positive Then
Activity.Finish
ExitApplication
End If
End Sub