>>302
引数と被ることあるじゃん。
Sub Func(ByVal value As String)
  'なんかこれ嫌じゃない?
End Sub

Property Get Value() As String

End Property