romString(suLib(0), tGUID)
      If errOK = 0 Then
         errOK = UnRegisterTypeLib(tGUID, iMajor, iMinor, lCID, SYS_WIN32)
         RegTypelib = errOK
      End If
      
   End If
   
End Function
Public Function UIRegisterTypeLib(ByVal sLib As String, ByVal bState As
 Boolean, ByVal bShowMessage As Boolean) As Boolean
Dim errNo As Long
Dim sPre As String

   errNo = RegTypelib(sLib, bState)
   If bShowMessage Then
      If bState Then
         sPre = "Register Type Library "
      Else
         sPre = 