Public Class systemmonitor Public ReadOnly Property Memory() As MemoryInfo Static _mem As MemoryInfo If _mem Is Nothing Then _mem = New MemoryInfo End If Return _mem End Function End Class Public Class MemoryInfo 'ここにメモリに関する物を入れる End Class