Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Activity.Finish
Select Main.Ruecksprungsort
Case "Ueberweisungen"
Main.Ruecksprungsort = "Main"
StartActivity(Ueberweisungen)
Case "Finanzverlauf"
Main.Ruecksprungsort = "Main"
StartActivity(Finanzverlauf)
Case "Buchung_suchen"
Main.Ruecksprungsort = ""
StartActivity(Buchung_suchen)
Case Else
Main.Ruecksprungsort = ""
StartActivity(Main)
End Select
Return True
End If
Return False
End Sub