转贴 'MSVBVM60.DLL

'MSVBVM60.DLL Declare Sub rtcBeep Lib "msvbvm60.dll" () Declare Sub rtcDoEvents Lib "msvbvm60.dll" () Declare Function rtcTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcRightTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcLeftTrimBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcUpperCaseBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcLowerCaseBstr Lib "msvbvm60.dll" (ByVal lpString As Long) As String Declare Function rtcSpaceBstr Lib "msvbvm60.dll" (ByVal lCount As Long) As String Declare Function rtcRightCharBstr Lib "msvbvm60.dll" (ByVal lpString As Long, ByVal lCount As Long) As String Declare Function rtcLeftCharBstr Lib "msvbvm60.dll" (ByVal lpString As Long, ByVal lCount As Long) As String Declare Function rtcGetDateBstr Lib "msvbvm60.dll" () As String Declare Function rtcGetTimeBstr Lib "msvbvm60.dll" () As String Declare Function rtcGetTimer Lib "msvbvm60.dll" () As Long Declare Function rtcInStrRev Lib "msvbvm60.dll" (ByVal lpStringCheck As Long, ByVal lpStringMatch As Long, ByVal lStart As Long, ByVal lCompare As Long) As Long Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long Declare Function vbaLenBstr Lib "msvbvm60.dll" Alias "__vbaLenBstr" (ByVal lpString As Long) As Long Declare Function vbaLenBstrB Lib "msvbvm60.dll" Alias "__vbaLenBstrB" (ByVal lpString As Long) As Long Declare Function vbaInStr Lib "msvbvm60.dll" Alias "__vbaInStr" (ByVal lStart As Long, ByVal lpStringMatch As Long, ByVal lpStringCheck As Long, ByVal lCompare As Long) As Long Declare Sub GetMem1 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Byte) Declare Sub GetMem2 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Integer) Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long) Declare Sub GetMem8 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Currency) Declare Sub PutMem1 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Byte) Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer) Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long) Declare Sub PutMem8 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Currency)

 

 

'VBA6.DLL Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long Declare Sub EbTerm Lib "vba6.dll" () Declare Function EbDoIdle Lib "vba6.dll" () As Long Declare Function EbMode Lib "vba6.dll" () As Long Declare Function EbShutdownEventMonitors Lib "vba6.dll" () As Long