Visual Basic

Public Function read_Image() As Array
    fsh = New FileStream(Me.FileToRead.FullName, FileMode.Open)
    brh = New BinaryReader(fsh)

    'Set the position to the proper position of the files stream.
    fsh.Position = Me.DPXOffset

    ReDim DPXPixelArray(((Me.FileToRead.Length - fsh.Position) / 4) - 1)
    For i As UInteger = 0 To Me.DPXPixelArray.GetUpperBound(0)
        Me.DPXPixelArray(i) = SwapDWORD(brh.ReadUInt32)
    Next

    fsh.Close()
    brh = Nothing

    Return DPXPixelArray

End Function

Public Sub DisplayImage()
    If gch.IsAllocated Then gch.Free()

        Dim arrayImage() As Byte = dpx.RGBArrayFromRawArray(dpx.DPXPixelArray)
        gch = GCHandle.Alloc(arrayImage, GCHandleType.Pinned)
        Dim pBuf As IntPtr = gch.AddrOfPinnedObject
        Dim Width As Integer = dpx.DPXWidth
        Dim Height As Integer = dpx.DPXHeight
        Dim stride As Integer = Width * 3
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        PictureBox1.Image = New Bitmap(Width, Height, stride, Imaging.PixelFormat.Format24bppRgb, pBuf)

End Sub

Public Function RGBArrayFromRawArray(ByVal RawArray) As Array
    Dim j As Integer
    Dim RGBArray(CInt(RawArray.Length * 3) - 1) As Byte

    For i = 0 To (RawArray.Length - 1)
        j = i * 3
        Dim buff As UInteger = RawArray(i)
        ' bit-shifting operation
        RGBArray(j) = (buff And &HFFC) >> 4                    ' Blue
        RGBArray(j + 1) = (buff And &H3FFFFC) >> 14            ' Green
        RGBArray(j + 2) = (buff And &HFFFFFFFC) >> 24          ' Red
    Next i
    Return RGBArray

End Function

Dim p1t1 As New CodeMemberProperty
     p1t1.Name = "myProperty"
     p1t1.Type = New CodeTypeReference(GetType(Integer))
     p1t1.Attributes = MemberAttributes.Abstract Or _
                       MemberAttributes.Public

Public MustOverride Property myProperty() As Integer
     End Property

Public MustOverride Property myProperty() As Integer

Dim m1t1 As New CodeMemberMethod
     m1t1.Name = "myMethod"
     m1t1.ReturnType = New CodeTypeReference(GetType(System.Void))
     m1t1.Attributes = MemberAttributes.Abstract Or _
                       MemberAttributes.Public

Public MustOverride Sub myMethod()

Dim t1 As New CodeTypeDeclaration
     t1.Name = "Class1"
     t1.IsClass = True
     t1.TypeAttributes = Reflection.TypeAttributes.Abstract Or _
                         Reflection.TypeAttributes.Class Or _
                         Reflection.TypeAttributes.Public