Sub Activity_Pause (UserClosed As Boolean)
n.Initialize()
n.Cancel(1)
End Sub
Sub ReadFromFile
Dim fdName,srcDir As String
srcDir = File.DirAssets
fdName ="introb4a.txt"
If File.Exists(srcDir,fdName) Then
lbDoc.Text = File.GetText(srcDir,fdName)
n.Initialize()
n.Icon ="warning"
n.AutoCancel=True
n.SetInfo("Read file","Completed !","")
n.Notify(1) <--Error occur on this line
Else
ToastMessageShow("Cannot get the File !",False)
End If
End Sub