>Public Class MyName > > Public Shared lError As Boolean = False > Public Shared cError As String = "" > Public Shared cErrorStackTrace As String = "" > > ' My list of functions here > > ' Initialize the default properties before the function gets called > Private Shared Sub ErrorInitialize() > lError = False > cError = "" > cErrorStackTrace = "" > End Sub > > ' When an error occurs, we are setting up those properties > ' expO1 Exception object > Private Shared Sub ErrorSetup(ByVal toError As Exception) > cError = toError.Message > lError = True > cErrorStackTrace = toError.StackTrace > End Sub > >End Class >>