Public Function Register(sFile As String) As Boolean
On Error GoTo Register_Error
 
Shell "regsvr32.exe """ & sFile & """ /s"
 
Register = True
 
   On Error GoTo 0
   Exit Function
 
Register_Error:
End Function
 
Public Function UnRegister(sFile As String) As Boolean
On Error GoTo Register_Error
 
Shell "regsvr32.exe """ & sFile & """ /s /u"
 
Register = True
 
   On Error GoTo 0
   Exit Function
 
Register_Error:
End Function

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co