Visual Basic

Imports System.IO
Module ModReadWriteImage

    Public Sub writeImage(ByVal picbox As PictureBox, ByVal sql As String)

        Dim imageBinary = Nothing
        Dim myImage As Image = picbox.Image
        'Image to byte[]
        Dim imgMemoryStream As MemoryStream = New MemoryStream()
        Dim imgByteArray As Byte() = Nothing
        myImage.Save(imgMemoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        'converts the image to an array of byte :D
        imgByteArray = imgMemoryStream.GetBuffer()
        'calls the save image function ^_^
        saveImage(imgByteArray, sql)

    End Sub

    Public Function readImages(ByVal pic As Byte()) As Image

        Dim imgMemoryStream As MemoryStream = New MemoryStream()
        Dim imgByteArray As Byte() = Nothing

        Dim myimage As Image
        imgByteArray = pic
        'convert the binary data and return it as an image ;D

        imgMemoryStream = New IO.MemoryStream(imgByteArray)
        myimage = Drawing.Image.FromStream(imgMemoryStream)

        Return myimage

    End Function


End Module

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