Visual Basic

Public Class RDouble
    Public Sub New(ByVal D As Double, Optional ByVal Min As Double = 0, Optional ByVal Max As Double = 100)
        _MinValue = Min
        _MaxValue = Max
        _dValue = D

        If _dValue < _MinValue Then
            _dValue = _MinValue
        ElseIf _dValue > _MaxValue Then
            _dValue = _MaxValue
        End If
    End Sub

    Public _MinValue As Double
    Private _MaxValue As Double
    Private _dValue As Double

    Public Shared Widening Operator CType(ByVal d As RDouble) As Double
        Return d._dValue
    End Operator

    Public Shared Narrowing Operator CType(ByVal d As Double) As RDouble
        Return New RDouble(d)
    End Operator
End Class

Sub Main()
    Dim rd As New RDouble(50.0, 10.0, 100.0)
    rd = 20.54
    Dim D As Double
    D = Math.Round(rd)
End Sub

Dim objShell,stArgs
strFile = "File Location"
strFileSrc = "URL file"

Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Exec("""%ProgramFiles%\Microsoft Silverlight\sllauncher.exe""")
objShell.strArgs("/emulate:""" & strFile & """, /origin:""" & strFileSrc & """, /overwrite")

Set objShell = Nothing