[Artfrost]

с потоком вроде пашет
поправьте если что не так:

Procedure TREAD_CLICK(period)
	Repeat
		If GetAsyncKeyState_(#VK_LBUTTON) = -32767
			Debug "!!!!!!!!!!!!!!!!!"
		EndIf
		Delay(period)
	ForEver
EndProcedure

OpenWindow(0, 605, 501, 295, 150, "Test click", #PB_Window_SystemMenu|#PB_Window_TitleBar)

TREAD_CLICK = CreateThread(@TREAD_CLICK(), 1)

Repeat
 
  Select WaitWindowEvent()
    	Case #PB_Event_CloseWindow
            Select EventWindow()
                Case 0
                	KillThread(TREAD_CLICK)
                    Break
            EndSelect
  EndSelect
  
ForEver