home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / vbasic / Data / Utils / XZipComp.exe / XceedEncryption.Cab / F112958_Utility.bas < prev    next >
Encoding:
BASIC Source File  |  2001-04-10  |  660 b   |  23 lines
  1. Attribute VB_Name = "Utility"
  2. ' Xceed Encryption Library - Encryption Manager sample
  3. ' Copyright (c) 2001 Xceed Software Inc.
  4. '
  5. ' [Utility.bas]
  6. '
  7. ' This module contains utility functions code.
  8. '
  9. ' This file is part of the Xceed Encryption Library sample applications.
  10. ' The source code in this file is only intended as a supplement to Xceed
  11. ' Encryption Library's documentation, and is provided "as is", without
  12. ' warranty of any kind, either expressed or implied.
  13.  
  14. Option Explicit
  15.  
  16. Public Sub DisplayError()
  17.  
  18.     If Err.Number <> 0 Then
  19.         Call MsgBox(Err.Description & " (" & CStr(Err.Number) & ")", , "Error")
  20.     End If
  21.  
  22. End Sub
  23.