Stringgadet without blinking cursor [Windows]

[CNESM]

Code: Select all

OpenWindow(0,0,0,300,100,"Stringgadet without blinking cursor",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) 

StringGadget(0,20,20,260,20,"...") 

Repeat 
  Event=WaitWindowEvent() 
  If Event=#PB_Event_Gadget 
    If EventGadget()=0 
      HideCaret_(GadgetID(0)) 
    EndIf 
  EndIf 
Until Event=#PB_Event_CloseWindow