Ich war grad ein bissel am rumspielen mit verschiednen Codes, und bin über etwas lustiges gestolpert. Vieleicht ist es ja auch schon bekannt, aber gebt mal folgenden Code ein, und klickt dann einfach ein paar mal auf den Button. Da erscheinen dann recht lustige Dinge ^^
Code: Alles auswählen
Procedure Open_MAIN()
  If OpenWindow(1, 216, 0, 200, 200, "Test",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(1))     
      ImageGadget(3, 60, 20, 80, 82, Image3, #PB_Image_Border )   
      ButtonGadget(1, 60, 150, 80, 40, "Click Me")
    EndIf
  EndIf
EndProcedure
Open_MAIN()
Repeat
 
Event = WaitWindowEvent()
Select Event
  Case #PB_Event_Gadget
    Select EventGadget()
    Case 1
      GR.l = Random(20) + 1
      SetGadgetState(3, Image + GR)    
    
    EndSelect  
EndSelect
  
Until Event= #PB_Event_CloseWindow