Server Busy Error in ActiveX Exe

I have a VB Activex Exe proj which shows a Modal Form. My VB App is called from an non VB App.
Every thing works fine except that my VB App seems not to be recognising the Ole.... properties which I set in the Class Initialize.

I set this properties because when the user move or clicks the form, the in famous Server Busy dialog box come up.

How else can I get rid of this irritant pls

This is what I have in my Class Initialize

Private Sub Class_Initialize()

App.OleRequestPendingMsgText = "The action"
App.OleRequestPendingMsgTitle = "ABC"
App.OleRequestPendingTimeout = 10000
App.OleServerBusyMsgText = "countinue..."
App.OleServerBusyMsgTitle = "ABC CTI"
App.OleServerBusyTimeout = 10000
App.OleServerBusyRaiseError = False

Load Form1

End Sub