- resa generica la funzione GetValue.

SceneUserControl/SceneUserControlVM.vb

@@ -275,6 +275,15 @@ Public Class _TextBoxParam
 
 #End Region ' Constructor
 
+#Region "METHODS"
+   Public Function GetValue()
+      If String.IsNullOrEmpty(sValue) Then Return 0
+      If Not IsNumeric(sValue) Then Return 0
+      Dim dValue As Double = CDbl(sValue)
+      Return dValue
+   End Function
+#End Region
+
 End Class
 
 Public Class _TextBlockParam