以前誰かがうｐしてくれたプログラムだけど、すこし変更を加えてうｐしてみたよ。
変更点は400→200カウントにしただけ
　
ttp://cgi.members.interq.or.jp/leo/sinki/cgi-bin/date/img-box/img20020319045850.zip
　
心配な人は、VBのソースを確認してからコンパイルしてもいいかも