Spanish [Solucionado]Regresar al modulo principal sin recordar los pasos anteriores

Sub ImgPedir_Click
    If XCLV5.Size=0 Then
        MsgboxAsync("Lista de pédido vacia","Atención")
        Return
    End If
    If Main.IDNOrden=0 Then
        Wait For (CnSql3.NuevaOrden) Complete (Nuevo As Object)
        Main.IDNOrden=Nuevo
    End If
    Dim ListaInfo As List
    ListaInfo.Initialize
    For h = 0 To XCLV5.Size-1
        Dim Reginfo As Clases
        Reginfo.Initialize
        Reginfo.NumOrden=Main.IDNOrden
        Reginfo.IdSalon=Main.IdSalon
        Reginfo.IdMesa=Main.IDMesa
        Reginfo.IdUsuario=Main.IDMesero
        Dim X1 As B4XView=XCLV5.GetPanel(h)
        Dim X2 As B4XView=X1.GetView(0).GetView(2)'Cantidad
        Dim X3 As B4XView=X1.GetView(0).GetView(5)'Codigo de articulo
        Reginfo.CodArticulo=X3.Text
        Reginfo.CantLinea=X2.Text
        ListaInfo.Add(Reginfo)
    Next
    Wait For (CnSql3.RegistrarOrden(ListaInfo)) Complete (Result As Boolean)
    If Result Then
        MsgboxAsync("Listo revice","Atención")
        XCLV5.Clear
        StartActivity("Personal")
    End If
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'return true if you want to consume the event
    If keycode = KeyCodes.KEYCODE_BACK Then
        'Aquí compruebas lo que quieras, si tienes un panel mostrándose, o si has rellenado el formulario
        Return True  'consumes el evento y la actividad no vuelve atrás
    Else
        Return False 'La actividad "vuelve atrás"
    End If
End Sub