Private poStatus poStatus = NewObject('ComStatusForm', 'ComDebug') && note 1 poStatus.Show() lcName = JustFname(Set('Directory')) && note 2 Local loRotServer loRotServer = RotServer() loRotServer.Register(poStatus, lcName + '.Debugger') && note 3Note 1. There is no classname ComStatusForm in ComDebug.PRG, only a OlePublic class called ComDebug. If this is meant to be a form, what are you meant to put here in the case of a running application?