' Classes/System/misc.ab #ifndef __SYSTEM_MISC_AB__ #define __SYSTEM_MISC_AB__ '#require Namespace System Interface IAsyncResult ' Properties Function AsyncState() As Object Function AsyncWaitHandle() As Threading.WaitHandle Function CompletedSynchronously() As Boolean Function IsCompleted() As Boolean End Interface Interface ICloneable ' Method Function Clone() As Object End Interface Interface IComparable ' Method Function CompareTo(obj As Object) As Long End Interface Interface IDisposable ' Method Sub Dispose() End Interface Class EventArgs Public Static Empty = New EventArgs End Class 'Delegate Sub AsyncCallback(ar As IAsyncResult) Delegate Sub AsyncCallback(ar As VoidPtr) End Namespace 'System #require #endif '__SYSTEM_MISC_AB__