 0 Then
            CommandHelp "No Type Library name specified."
         Else
            UIRegisterTypeLib sFileName, bState, Not (bSilent)
         End If
      End If
      
   Else
      Set fTI = New frmTypeLib
      fTI.Show
   End If
   
End Sub
Private Sub CommandHelp(ByVal sTopMsg)
Dim sMsg As String
   sMsg = sTopMsg &amp; vbCrLf &amp; vbCrLf &amp; "Usage: vbregtlb [/u] [/s] [/ui] tlbname"
    &amp; vbCrLf
   sMsg = sMsg &amp; "/u -" &amp; vbTab &amp; "Unregister Type library" &amp; vbCrLf
   sM