Define a procedure in a function

FL_NOTIFY_CALLBACK * pCallbackProc

Need help to define this function:

// Function: FLBeginEnroll(
// FL_NOTIFY_CALLBACK pCallbackProc
// uint32 uiCallerDWord
// tsFL_MATCH_CRITERIA* pMatchSetup
// tsFL_ID_INFO* pUserID
// FL_FINGER_CODE iWhichFinger
// uint16* puiMaxTemplateSize)
//
// Purpose: Begins an enroll transaction. A non-zero transaction number is
// returned to indicate that the transaction started.
//
// After starting a transaction, the calling program receives synchronous
// or asynchronous messages containing display images and state change
// notifications. A message of type FL_API_ENROLL_DATA_RDY indicates that
// the final results of the transaction are available, Upon receipt of this
// message, the application calls FLEndEnroll() to receive the results
// of the enrollment and to end the transaction.
//
// Parameters:
//
// pCallbackProc:
// Pointer to the callback procedure to receive asynchronous
// display images and transaction state changes during the
// transaction.
//
// uiCallerDWord:
// 32 bit value to be returned as the first value in the parameter
// list when the FingerLoc system calls the application's callback
// procedure.
//
// pMatchSetup:
// Not used.
//
// pUserID:
// Pointer to a tsFL_ID_INFO structure specifying the user to
// enroll If NULL, enroll data is not saved to the FingerLoc
// database.
//
// iWhichFinger:
// The number of the finger to enroll
//
// *puiMaxTemplateSize:
// Pointer to returned size of an enroll template
//
// Returns: An FL_TRANSACTION_ID used by the application to track the status
// of the transaction. If NULL, the system was unable to begin
// the transaction and a call to FingerLocGetResultsDetails() returns
// the cause of the API failure - a transaction already open, a hardware
// failure, a communications failure, etc.
//
/////////////////////////////////////////////////////////////////////////////

It appears that the problem is with the procedure in the function under vb5.

Declare Function FLBeginIdentify Lib "flrpc.dll" Alias "#51" (ByVal PCallBackProc As Long, ByVal UiCallerWord As Long, PMatchSetup As tsFL_MATCH_CRITERIA) As Integer

Any help will be appreciated.

Thanks.