ring As String, ByVal
 lSize As Long, ByVal lpFilename As String) As Long
Private Const DUPLICATE_SAME_ACCESS = &amp;H2&amp;


Public Sub Main()
    Dim sCmd As String, s As String

    sCmd = Command$
    sLinker = NormalizePath(App.Path) &amp; "LINK0.EXE"
    Set tok = New CTokenizer
    tok.Tokenize sCmd
    lTimeOutMilliSecs = 60000
    If FindInfFile Then
        ' Evaluate some options
        sLinker = ReadIniFile("Options", "Linker", sLinker)
        s = String$(1024, 0)
        Call ExpandEnvironme