Here

Set oHypDMS = New AutoArchive.HypDms

so you may try

oHypDMS = createobject('AutoAchive.HypDms')

>Hello Everybody
>
>I have a dll to communicate with an DMS-System.
>
>This is an working VB example:
>
>Private Sub Command1_Click()
>' Verbindungsobjekt zum Archiv
>Dim oHypDMS As HypDms
>
>' Obj für die Trefferliste
>Dim oHitList As IHypDocHitList
>
>Dim bOK As Boolean
>
>'anzahl Treffer
>Dim lTreffer As Long
>
>'Databaseid DepartmentNr
>Dim lDbID As Long
>Dim lDocId As Long
>
> Set oHypDMS = New AutoArchive.HypDms
>
> 'Verbinsungsparameter setzten
> ' Call oHypDMS.ConfigRouter
>
> 'leeres Hitlistendoc erstellen
>
> Set oHitList = oHypDMS.CreateDocument("S2", "DC_HITLIST")
>
>'Suchparameter angeben
> bOK = oHitList.SetQueryField("OSVERKAU", "RENR", "20760169")
> bOK = oHitList.SetQueryField("OSVERKAU", "BELEGART", "MAPPE")
>
> ' Query starten
> lTreffer = oHitList.DoQuery()
>
> MsgBox "Treffer " & lTreffer
>
> ' Wenn was gefunden...
> If lTreffer > 0 Then
> ' Druchlaufen der Trefferliste
> While oHitList.EnumEntryIDs(lDbID, lDocId)
> MsgBox lDbID & " - " & lDocId
> 'Anzeigen Tif siehe unten
> Call ShowDocument(lDbID, lDocId)
>
> Wend
>
> End If
>
>End Sub
>
>
>I want to use the dll with VFP 9.2, but i'm just to stupid for the basics :-(.
>I can open the dll with the object browser, but how to reference ... ???
>oH = Createobject('HypDms') = error class definition 'Hypdms' was not found.
>
>Any help welcomed
>Best regards
>Albert