>Hi, my dear friends!
>
>I have a quick question, how I do to register a OCX (Comctl32.ocx) on a Windows NT workstaion.
>
>Thanks

Thanks to Paul for most of this:

LOCAL gcFile, llSuccess

gcFile = GETFILE('OCX', 'OCX File:', 'Select',0)
IF EMPTY(gcFile)
RETURN
ENDIF

DECLARE INTEGER DllRegisterServer ;
IN (gcFile) ;
AS __DllRegisterServer__
*-- This function returns 0 if successful
IF __DllRegisterServer__() = 0
llSuccess = .T.
ELSE
llSuccess = .F.
ENDIF

IF llSuccess
MESSAGEBOX("OCX was registered successfully", 0+64, _screen.caption)
ELSE
MESSAGEBOX("OCX registration failed", 0+48, _screen.caption)
ENDIF