Tip Bank

DevX - Software Development Resource

LogEvent – Logging an error/event to the Windows NT/2000 Application Event Log

‘ Log an error/event to the Windows NT/2000 Application Event Log.’ Usage: LogEvent(“Message here”, EventLogEntryType.Information)Sub LogEvent(ByVal message As String, ByVal entryType As EventLogEntryType) If EventLog.SourceExists(Application.ProductName) = False Then EventLog.CreateEventSource(Application.ProductName, “Application”)

DevX - Software Development Resource

SortBase – Support sorting routines

Option ExplicitOption Compare BinaryOption Base 1Public Type TRIAL nKEYS As Long nITS As Integer PT As Long TT As Long ST As LongEnd TypePublic Const RAD = 1Public Const TQK