Enumeration#Text
EndEnumeration



Procedure MarqueeTimer(*x)                                          
While a=0
 SetGadgetText(#Text,Str(Random(999)))
 Delay(250)
Wend
EndProcedure

If OpenWindow(0, 0, 0, 300, 160, "поток", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
  TextGadget(#Text, 100, 20, 300, 20, "")
  
  CreateThread(@MarqueeTimer(),0)
 
  Repeat 
  Until WaitWindowEvent()  = #PB_Event_CloseWindow
 
 EndIf 
#bas