Hmmm ...
if GetEON(aflist1[0],arysize,tpieon1,tptyeon1,pseontemp,ttaeon1,0) then
Wenn ich das richtig interpretiere sollte Result dir den wert von aflist1[0] zurückgeben wenn der aufruf GetEON = True erfolgreich war.
Plus der werte die in tpieon1 abhängig von aflist1[0] enthalten sind.
Weis nicht ob in der
DLL result = @aflist1 als VarPtr deklariert ist.
Das kannst du nur testen.
EDIT:
Davon abgesehen du deklarierst überall Boolean ..
Warum ? Bool wie in c++ das reicht.
Nur in VB benötigt man 2 Byte und da gibt es kein Bool.
gruss Emil