с потоком вроде пашет
поправьте если что не так:
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