List 2-5　初期化ルーチン

  1： Private Sub Class_Initialize()
  2：     inVal = 0
  3： End Sub