Private Sub Load
#if B4A
Wait For (FileHandler1.Load) Complete (Result As LoadResult)
#else if B4i
Wait For (FileHandler1.Load(Me, Label1)) Complete (Result As LoadResult)
' Wait For (FileHandler1.Load(Me, B4XPages.GetNativeParent(Me).TopRightButtons.Get(1))) Complete (Result As LoadResult)
#end if
HandleLoadResult(Result)
End Sub
)