ActiveX exe call back ***Resolved***

[aconybeare]

Hello,

I'm trying to get an active X exe to raise an event back to a standard exe

This is what I have so far

Client (standard exe)

Option Explicit
' Reference set to AlsServer under Project references 
Private WithEvents myServer As AlsServer.cServer
 
Private Sub cmdCall_Click()
    Set myServer = New AlsServer.cServer
End Sub
 
Private Sub myServer_doCallBack()
    MsgBox "Your Call has matured!!", , "Als Server"
End Sub

Server (ActiveX exe)

Option Explicit
Event doCallBack()
 
Private Sub Class_Initialize()
    doMyStuff
End Sub
 
Private Sub doMyStuff()
    Dim i As Long, z As Long
 
    z = 0
    For i = 0 To 1000000
        z = z + 1
        If z = 999999 Then
            RaiseEvent doCallBack
            Exit For
        End If
    Next
End Sub

I've stepped through it and the raise event line is executed but doesn't get fired through to the client, does anyone know why?

Any help will be greatly appreciated

Regards Al