declare ende%,x%,y%,button%,listbox%,anzeig$
def @SetMouse(2) !"USER32","SetCursorPos"
x%=100
y%=100
cls
Loadbmp "C:\WINDOWS\SETUP.BMP",0,0;0
Windowtitle "ENDE TASTE ESCAPE"
Let Button%=@CREATE("BUTTON",%hwnd ,"anderes Hintergrundbild",330 ,290 ,200 ,30)
Let Listbox%=@CREATE("LISTBOX",%hwnd ,"",75 ,180 ,130 ,70)
UseFont "Times New Roman",25,0,0,1,0
TextColor RGB(255,255,0),-1
anzeig$="Um ein neues Bild anzuzeigen"
Drawtext 140,13,anzeig$
TextColor RGB(0,0,0),-1
Drawtext 142,10,anzeig$
ClearList
@AddString(Listbox%,"Bild 1")
@AddString(Listbox%,"Bild 2")
@AddString(Listbox%,"Bild 3")
@AddString(Listbox%,"Bild 4")
whilenot equ(%scankey,27)
 if lt(x%,350)
   inc x%
   sleep 5
   @SetMouse(x%,100)
   if equ(x%,320)
   Loadbmp "C:\WINDOWS\SETUP.BMP",0,0;0
   RePaint
       TextColor RGB(255,255,0),-1
       anzeig$="klicken Sie einfach auf den Button..."
       Drawtext 140,13,anzeig$
       TextColor RGB(0,0,0),-1
       Drawtext 142,10,anzeig$
   endif

 elseif equ(x%,350)
   if neq(y%,350)
      inc y%
      sleep 5
      @SetMouse(x%,y%)
   elseif equ(y%,350)
      Windowtitle "MAUS DRÜCKEN"
      sleep 500
      SendMessage (button%,513,0,0)
      sleep 500
      locate 10,10
      Windowtitle "MAUS LOSLASSEN"
      SendMessage (button%,514,0,0)
      Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
      RePaint
      setfocus (%hwnd)
      sleep 1000
      whilenot equ(x%,128)
         case equ(%scankey,27):end
         if equ(x%,310)
            Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
            RePaint
            TextColor RGB(255,255,0),-1
            anzeig$="Wollen Sie ein kleines Bild anzeigen?"
            Drawtext 140,13,anzeig$
            TextColor RGB(0,0,0),-1
            Drawtext 142,10,anzeig$
         endif
         dec x%
         sleep 5
         @SetMouse(x%,y%)
         wend
         whilenot equ(y%,245)
         case equ(%scankey,27):end
         if equ(y%,340)
            Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
            RePaint
            TextColor RGB(255,255,0),-1
            anzeig$="Klicken Sie einfach in die Bildliste"
            Drawtext 140,13,anzeig$
            TextColor RGB(0,0,0),-1
            Drawtext 142,10,anzeig$
         endif
	    dec y%
            sleep 5
            @SetMouse(x%,y%)
         wend
         locate 10,10
         Windowtitle "Eintrag 2 markieren"
         sleep 500
         SendMessage(Listbox%,$0186,1,0) 'LB_SETCURSEL
            Loadbmp "C:\WINDOWS\WOLKEN.BMP",0,0;0
            RePaint
            TextColor RGB(255,255,0),-1
            anzeig$="Viel Spaß mit dem Programm!"
            Drawtext 140,13,anzeig$
            TextColor RGB(0,0,0),-1
            Drawtext 142,10,anzeig$
            LoadBmp "C:\WINDOWS\KACHELN.BMP",50,50;0
        sleep 4000
         end
   endif
 endif

wend