RegUnregServer

'Questa Declare e' Case sensitive

Public Declare Function RegMyServerObject Lib _
"c:\windows\system\comdlg32.ocx" Alias "DllRegisterServer" () As Long

Sub Form1_Load()
RegMyServerObject
End Sub

'comdlg32.ocx e' stato registrato

'Per deregistrare sostituire

'"DllRegisterServer" con "DllUnregisterServer"