<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=49884&amp;view=findpost&amp;p=428388</guid>
        <pubDate>Thu, 12 Aug 2004 13:13:52 +0000</pubDate>
        <title>Как приостановить выполнение программы</title>
        <link>https://forum.sources.ru/index.php?showtopic=49884&amp;view=findpost&amp;p=428388</link>
        <description><![CDATA[DVS: второй способ менее приемлем, жрёт ресурсов много]]></description>
        <author>DVS</author>
        <category>Разное (кодинг)</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=49884&amp;view=findpost&amp;p=328010</guid>
        <pubDate>Tue, 30 Mar 2004 17:30:01 +0000</pubDate>
        <title>Как приостановить выполнение программы</title>
        <link>https://forum.sources.ru/index.php?showtopic=49884&amp;view=findpost&amp;p=328010</link>
        <description><![CDATA[Dufa: <div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Private Declare Sub Sleep Lib &quot;kernel32&quot; (ByVal dwMilliseconds As Long) </div><div class="code_line">Call Sleep(Число в мс)</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script>В одной секунде 1000 мс.<br>
<br>
Можно и без API: <br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Public Sub Delay(p As Single)</div><div class="code_line">Dim Start As Single</div><div class="code_line">Start = Timer</div><div class="code_line">&nbsp;&nbsp; &nbsp;Do While Timer &#60; Start + p</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;DoEvents</div><div class="code_line">&nbsp;&nbsp; &nbsp;Loop</div><div class="code_line">End Sub</div></ol></div></div></div></div>]]></description>
        <author>Dufa</author>
        <category>Разное (кодинг)</category>
      </item>
	
      </channel>
      </rss>
	