home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples5 / ch15 / enumprop.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-16  |  386 b   |  11 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. ' Copyright ⌐ 1997 by Desaware Inc. All Rights Reserved
  4.  
  5. Public Function CbkEnumProps(ByVal hwnd As Long, ByVal lpstring As Long, ByVal hdata As Long) As Long
  6.    Dim l As Long, lpstr As Long
  7.    Debug.Print "Got Callback, prop name is " & agGetStringFromPointer(lpstring) & " data is " & hdata
  8.    CbkEnumProps = True
  9. End Function
  10.  
  11.