Class Object
Public

	Sub Object()
	End Sub
	Sub ~Object()
	End Sub

	' 2つのオブジェクトが等しいかどうかを判断する
	Virtual Function Equals( ByRef obj As Object ) As Boolean
		If VarPtr( This ) = VarPtr( obj ) Then
			Return True
		Else
			Return False
		End If
	End Function
	Static Function Equals( ByRef objA As Object, ByRef objB As Object ) As Boolean
		Return objA.Equals( objB )
	End Function

	' ハッシュコードを取得する
	Virtual Function GetHashCode() As Long
		Return VarPtr( This ) As Long
	End Function

	' オブジェクトに関係する文字列を返す
	Virtual Function ToString() As String
		Return "Object"
	End Function
End Class