German nächste Seite, nächste Seite und mit dem zurück-Button blättern

Sub Activity_KeyPress(KeyCode As Int) As Boolean
    
   If KeyCode = KeyCodes.KEYCODE_BACK Then
      StartActivity(Main)
        Return True
   Else
        Return False
    End If
   
End Sub

Sub Activity_KeyPress(KeyCode As Int) As Boolean
    
   If KeyCode = KeyCodes.KEYCODE_BACK Then
      Dim Result As Int
      Result = Msgbox2("App wirklich beenden?", "Beenden", "Ja", "Abbrechen", "Nein", Null)
      If Result = DialogResponse.POSITIVE Then
         Activity.Finish 'beenden
      Else
           Return True     'nicht beenden
      End If
   Else
        Return False
    End If

End Sub