Public Sub LastError As String
Dim sTemp As String
sTemp = CopyObject(sErrorMessage)
sErrorMessage = ""
Return sTemp
End Sub
Sub CopyObject(o As Object) As Object
Dim s As B4XSerializator
Return s.ConvertBytesToObject(s.ConvertObjectToBytes(o))
End Sub