Visual Basic 6 　サンプル