VB6.0でこれをお願いします。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1146630451