>Thanks Tore,
>
>This works during runtime which is perfect. So I will only need to load my procedure if its not already loaded.

If addProc('myprocedure'
  wait "Myprocedure was already added" window timeout 3
Endif
...
Function addProc
  Lparameters lcProcedure
  Local llReturn
  If Not Upper(lcProcedure) $ Upper(Set("Procedure"))
    Set Procedure To (lcProcedure) Additive
  Else
    llReturn=.T.
  Endif
Return llReturn