ExtentionsToVal 方法

Public Shared Function ToVal ( 
	obj As Object
) As Double

Dim obj As Object

Dim returnValue As Double

returnValue = Extentions.ToVal(obj)