vbAccelerator - Contents of code file: Test_Globals.bas

Attribute VB_Name = "Globals"
Option Explicit

' This alone will not generate any text or symbols in Globals.OBJ:
Public glGlobalLong

' Strict VB versions for Comparison in the debugger
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As
 Any, pSource As Any, ByVal dwLength As Long)

' Returns the low-order word from the given 32-bit value.
Public Function VBLOWORD(ByVal dwValue As Long) As Long
    CopyMemory VBLOWORD, dwValue, 2
End Function

' Returns the high-order word from the given 32-bit value.
Public Function VBHIWORD(ByVal dwValue As Long) As Long
    CopyMemory VBHIWORD, ByVal VarPtr(dwValue) + 2, 2
End Function