７１．指定した時間の間、処理を停止させる

＜　使用用途　＞
いろいろと使えます

　＜　説明　＞
ＡＰＩ関数のSleep を使用します
Sleep　＝＞処理を停止する
　　＜引数＞
　　　　　dwMilliseconds：処理をとめる時間
　　＠戻り値＠
　　　　　なし

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　'Windowｓに処理を渡す
　　DoEvents 　　　　　
　　'1秒とめる
　　Sleep　1000　　　
End Sub