List 5-7　getCountメソッド

  1： Private Counter As Long
  2： Public Function getCount()
  3：     Dim c As Long
  4：     c = Counter
  5：     c = c + 1
  6：     Counter = c
  7：     getCount = c
  8： End Function