$P+
 SetErrorLevel 0
 '********************** HINWEISE ********************************
 ' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.2
 ' DATUM  25.01.2005    um  09:20 Uhr
 ' VERWENDETE PROFANVERSION IST 9.0ß2-NT XPROFAN
 ' CODE ERSTELLT UNTER WINDOWS XP
 ' !!! Dieser Code wird von Roc immer neu erzeugt        !!!
 ' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
 ' !!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
 
 DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
 DECLARE listbox&
 DECLARE tolist&
 DECLARE ende&
 
 WINDOWSTYLE 63
 WINDOWTITLE "Listboxautoscroll"
 WINDOW 213,199-394,214
 SETTRUECOLOR 1
 DECLARE ENDE%
 CLS GETSYSCOLOR(15)
 USEFONT "MS Sans Serif",13,0,0,0,0
 SETDIALOGFONT 1
 
 ' Hier kann ggf. Ihr Menü hin
 
 listbox& = CREATE("LISTBOX",%HWND,"LISTBOX",0012,0013,0366,0096)
 tolist& = CREATE("BUTTON",%HWND,"Teststring hinzufügen",0044,0133,0125,0030)
 ende& = CREATE("BUTTON",%HWND,"Beenden",0193,0133,0139,0030)
 SETFOCUS(%HWND)
 WHILENOT ENDE%
 WAITINPUT
    If @EQU(%KEY,2)
      LET ENDE%= 1
    ELSEIF @EQU(%KEY,4)
    ELSEIF GETFOCUS(listbox&) 'LISTBOX
    ELSEIF GETFOCUS(tolist&) 'BUTTON
         Addstring(listbox&,time$(1))
         sendmessage(listbox&,$0186,sendmessage(listbox&,$018B,1,0)-1,0) 
         setfocus(%hwnd)
    ELSEIF GETFOCUS(ende&) 'BUTTON
         ende%=1
    ENDIF
 WEND