Sub ButtonExit_Click
Dim res As Int
res = Msgbox2("<message>","<title>","YES","","NO",Null)
If res = DialogResponse.POSITIVE Then
Global.currentActivity = "Selection"
StartActivity(Global.currentActivity) 'start Selection activity
Activity.Finish
End If
End Sub