RegisterOCX

Declare Function RegComCtl32 Lib "ComCtl32.OCX" Alias _
"DllRegisterServer" () As Long
Declare Function UnRegComCtl32 Lib "ComCtl32.OCX" Alias _
"DllUnregisterServer" () As Long
Const ERROR_SUCCESS = &H0
'Codice

'Per registrare i Microsoft Common Controls utilizza questo

'codice:

If RegComCtl32 = ERROR_SUCCESS Then
MsgBox "Registrazione Avvenuta"
Else
MsgBox "Registrazione Non Riuscita"
End If
If UnRegComCtl32 = ERROR_SUCCESS Then
MsgBox "Rimozione Avvenuta"
Else
MsgBox "Rimozione non riuscita"
End If
'Nota:

'ogni chiamata alla funzione DLL puo' prendere anche 5

'secondi.