Attribute VB_Name = "MdlMWLSCP" Option Explicit Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long ' Registry location Public Const REGISTRY_LOCATION = "LEAD Technologies, Inc.\VB_DicomMwlSCP" Public Const MDB_FILENAME = "MWLSCP.mdb"