t Case sArgs(i)
         Case "/S"
            bSilent = True
         Case "/U"
            bState = False
         Case "/UI"
            bShowForm = True
         Case Else
            If InStr(sArgs(i), "/") = 0 Then
               sFileName = sArgs(i)
            End If
         End Select
      Next i
      ' Do registration:
      If bShowForm Then
         Set fTI = New frmTypeLib
         fTI.Show
         fTI.Filename = sFileName
         fTI.Register bState
      Else
         If Len(sFileName) =