The "Value" property contains the long value to be passed by reference.

Type Info:

Value As Long
Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnQueryItemCount(FileType As String, Filename As String, _
   ReturnCount As ReturnLong)
 
Dim MyCount As Long

MyCount = ReturnCount.Value

[...]

ReturnCount.Value = MyCount

End Sub
See also:

Class ReturnLong

Last Updated: 05/11/05