XProfan

declare lvdll&,hdll&
 $I Listview_Funktionen.inc
lvdll&=usedll(Listview.dll)
 $I SKCONTROL.INC
let hdll& = UseDll(SKControl.dll)        Farb DLL laden
SKCtrl_InitDll()
cls
hier stehender Code wird ordnungsgemäß ausgeführt

whilenot 0

    waitinput
    Code davor wird richtig ausgeführt
    Enderoutine
    hier erfolgt bei mir unter WinMe ein Absturz
    FreeDll lvdll&
     $I Listview_dispose.inc
    SKCtrl_DeInitDll()        Farb DLL löschen
    FreeDll hdll&

Wend