回答ありがとうございました。
サンプルプログラムはみたんですが、
ＶＢで作ったものではないもののようだったので
あまり参考にはならないと思ってしまっていました。
Timerを使って一定周期でInpすればいいんですね。
何も起こっていないときはループで常にInpするということを考えていたので
Timerを使えばいいということを思いつけませんでした。
ありがとうございました。