Deligering af en funktion.

SetTimer delegate:

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Integer, ByVal nIDEvent As Integer, ByVal uElapse As Integer, ByVal lpTimerFunc As Integer) As Integer

TimerProc function:

Sub TimerProc(ByVal hwnd As Integer, ByVal uMsg As Integer, ByVal idEvent As Integer, ByVal dwTime As Integer)
    '
    Dim lngObjPointer As Integer
    Dim objTimeOut As CTimeout
    '
    On Error Resume Next
    '
    If Err.Number = 0 Then
        '
        objTimeOut = TimeOutObjectByPointer(idEvent)
        '
        objTimeOut.PostTimeOutEvent()
        '
    End If
    '
End Sub

RegisterTimer Function:

Public Function RegisterTimer(ByVal lngTimeOutValue As Integer, ByVal lngObjPointer As Integer) As Integer
    lngEventID = SetTimer(m_lngWindowHandle, lngObjPointer, lngElapse, AddressOf TimerProc)
End Function

Fejlen:

Fejlen opstår ved 'AddressOf TimerProc', hvor jeg får følgende at vide:
'AddressOf' expression cannot be converted to 'Integer' because 'Integer' is not a delegate type.