Settimer won't find its timerproc???

[Helger]

I'm trying to get an activex.exe server to run with a client. So far it's only a simple test-project. I want to have it so that client and server act completely independent and have them communicate via an event in the server.

Everything worked fine in the activex.dll variant (except that both proggies will be in the same thread of course and I don't want that).

In the exe-version my timer doesn't trigger its timerproc. What's wrong?

Code for Client is behind 2 forms(frmStart with one commandbutton and frmCalc with one label called lbl):

frmStart:

Option Explicit
 
Private Sub btn1_Click()
 
Dim frm As New frmCalc
 
frm.Visible = True
 
End Sub

frmCalc:

Option Explicit
Dim WithEvents dlt As DLLT1
 
Private Sub form_load()
 
Set dlt = New DLLT1
lbl.Caption = "running"
Debug.Print Me.hwnd
dlt.start Me.hwnd
 
End Sub
 
 
 
Private Sub dlt_finished(ByVal result As Double)
 
lbl.Caption = "Result = " & result
 
End Sub

Code for the server is in one module and one class:

module:

Option Explicit
 
Public bolStart As Boolean
Public objClient As DLLT1
 
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public lngTimerID As Long
 
Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
 
    objClient.calc
    KillTimer hwnd, 1
 
End Sub

class (called dllt1):

Option Explicit
Event finished(ByVal result As Double)
 
Sub start(hwnd As Long)
 
Set objClient = Me
bolStart = True
SetTimer hwnd, 1, 1500, AddressOf TimerProc
 
End Sub
 
Sub calc()
Dim res As Double
 
If bolStart = True Then
    Randomize
    res = (2 + Rnd * 3)
    RaiseEvent finished(res)
    bolStart = False
End If
 
End Sub

In case anyone wants to experiment with these projects I added them in a zip file. You need to run the 2 proj. in two instances of VB6. First run the server then make a reference to it in the client.

thx,

Helger