VB初心者質問スレPart2

自分で書いて、自分でわかりました。
よくある症状みたいで、修正プログラムありました。
ついでに一応書いておきます。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9cz1.html