"Unregister Type Library "
      End If
      If errNo = 0 Then
         MsgBox sPre &amp; sLib &amp; " succeeded.", vbInformation
      Else
         MsgBox sPre &amp; sLib &amp; " failed: the error returned was " &amp; Hex$(errNo),
          vbCritical
      End If
   End If
   UIRegisterTypeLib = (errNo = 0)
End Function

Public Sub Main()
Dim sCommand As String
Dim iPos As Long
Dim iNextPos As Long
Dim i As Long
Dim sArgs() As String
Dim cArg As Long
Dim bSilent As Boolean
Dim bShowForm As Boolean
Dim s