' VB-Helper DLL, Version 2.00
' Copyright (c) 1996 SoftCircuits Programming(R)
' Redistributed by Permission.
' http://www.softcircuits.com
'
Declare Function vbGetAddress Lib "VBHLP32.DLL" (pData As Any) As Long
Declare Sub vbFillMemory Lib "VBHLP32.DLL" (pDest As Any, ByVal nValue As Byte, ByVal nCount As Long)
Declare Sub vbCopyMemory Lib "VBHLP32.DLL" (pDest As Any, pSource As Any, ByVal nCount As Long)
Declare Function vbLoByte Lib "VBHLP32.DLL" (ByVal nValue As Integer) As Integer
Declare Function vbHiByte Lib "VBHLP32.DLL" (ByVal nValue As Integer) As Integer
Declare Function vbLoWord Lib "VBHLP32.DLL" (ByVal nValue As Long) As Integer
Declare Function vbHiWord Lib "VBHLP32.DLL" (ByVal nValue As Long) As Integer
Declare Function vbMakeWord Lib "VBHLP32.DLL" (ByVal nLoByte As Integer, ByVal nHiByte As Integer) As Integer
Declare Function vbMakeLong Lib "VBHLP32.DLL" (ByVal nLoWord As Integer, ByVal nHiWord As Integer) As Long
Declare Function vbShiftRight Lib "VBHLP32.DLL" (ByVal nValue As Integer, ByVal nBits As Integer) As Integer
Declare Function vbShiftLeft Lib "VBHLP32.DLL" (ByVal nValue As Integer, ByVal nBits As Integer) As Integer
Declare Function vbShiftRightLong Lib "VBHLP32.DLL" (ByVal nValue As Long, ByVal nBits As Integer) As Long
Declare Function vbShiftLeftLong Lib "VBHLP32.DLL" (ByVal nValue As Long, ByVal nBits As Integer) As Long
Declare Function vbRotateRight Lib "VBHLP32.DLL" (ByVal nValue As Integer, ByVal nBits As Integer) As Integer
Declare Function vbRotateLeft Lib "VBHLP32.DLL" (ByVal nValue As Integer, ByVal nBits As Integer) As Integer
Declare Function vbRotateRightLong Lib "VBHLP32.DLL" (ByVal nValue As Long, ByVal nBits As Integer) As Long
Declare Function vbRotateLeftLong Lib "VBHLP32.DLL" (ByVal nValue As Long, ByVal nBits As Integer) As Long
Declare Sub vbPackUDT Lib "VBHLP32.DLL" (pUDT As Any, ppResult As Long, ByVal pszFields As String)
Declare Sub vbUnpackUDT Lib "VBHLP32.DLL" (pUDT As Any, ppResult As Long)
Declare Function vbPackUDTGetSize Lib "VBHLP32.DLL" (ppResult As Long) As Long
Declare Sub vbPackUDTFree Lib "VBHLP32.DLL" (ppResult As Long)
Declare Function vbGetHelperVersion Lib "VBHLP32.DLL" () As Integer
Declare Sub vbShowAboutBox Lib "VBHLP32.DLL" ()

