Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'コマンドボタンクリックイベント Private Sub コマンド0_Click() '指定ミリ秒の間だけ休止します。 Sleep 2000 '2秒 End Sub