I managed to scale the code down to:
Code:
Sub Globals
End Sub
Sub App_Start
FLib.New1("frmMain",B4PObject(1))
FLib.MinimizeBox = True
Sms.New2
Intercept.New1
Contact.New1
ContactsCollection.New1("Contacts")
frmMain.Show
End Sub
Sub Intercept_MessageReceived
Sms.Value = Intercept.ReceivedMessage
End Sub
- The PDA switches off to stand by (automatically after 1 minute)
- I manually switch it back on
- From task manager I bring the app back to foreground
- And the the app closes ???