Visual Basic

Declare Function CreateProcessA Lib "kernel32" _
        (ByVal lpApplicationName As Long, _
        ByVal lpCommandLine As String, _
        ByVal lpProcessAttributes As Long, _
        ByVal lpThreadAttributes As Long, _
        ByVal bInheritHandles As Long, _
        ByVal dwCreationFlags As Long, _
        ByVal lpEnvironment As Long, _
        ByVal lpCurrentDirectory As Long, _
        ByRef lpStartupInfo As STARTUPINFO, _
        ByRef lpProcessInformation As PROCESS_INFORMATION) _
    As Long

ByVal lpCurrentDriectory As String

Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" _
        (ByVal lpApplicationName As String, _
        ByVal lpCommandLine As String, _
        ByRef lpProcessAttributes As SECURITY_ATTRIBUTES, _
        ByRef lpThreadAttributes As SECURITY_ATTRIBUTES, _
        ByVal bInheritHandles As Long, _
        ByVal dwCreationFlags As Long, _
        ByRef lpEnvironment As Any, _
        ByVal lpCurrentDriectory As String, _
        ByRef lpStartupInfo As STARTUPINFO, _
        ByRef lpProcessInformation As PROCESS_INFORMATION) _
    As Long

<br />
Public Function ExecuteAndWait(cmdline$)<br />
<br />
    Dim NameOfProc As PROCESS_INFORMATION<br />
    Dim NameStart As STARTUPINFO<br />
    Dim x As Long<br />
    Dim WorkingDirectory As String<br />
    WorkingDirectory = "c:\"<br />
'MsgBox WorkingDirectory<br />
    NameStart.cb = Len(NameStart)<br />
<br />
    x = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, HIGH_PRIORITY_CLASS, 0&, WorkingDirectory, NameStart, NameOfProc)<br />
    x = WaitForSingleObject(NameOfProc.hProcess, INFINITE)<br />
    x = CloseHandle(NameOfProc.hProcess)<br />
<br />
End Function<br />

<br />
Private Sub DrawIcon(HDC As Long, hwnd As Long, X As Integer, Y As Integer)<br />
    ico = GetIcon(hwnd)<br />
    DrawIconEx HDC, X, Y, ico, 16, 16, 0, 0, DI_NORMAL<br />
End Sub<br />
<br />
Public Function GetIcon(hwnd As Long) As Long<br />
    Call SendMessageTimeout(hwnd, WM_GETICON, 0, 0, 0, 1000, GetIcon)<br />
    If Not CBool(GetIcon) Then GetIcon = GetClassLong(hwnd, GCL_HICONSM)<br />
    If Not CBool(GetIcon) Then Call SendMessageTimeout(hwnd, WM_GETICON, 1, 0, 0, 1000, GetIcon)<br />
    If Not CBool(GetIcon) Then GetIcon = GetClassLong(hwnd, GCL_HICON)<br />
    If Not CBool(GetIcon) Then Call SendMessageTimeout(hwnd, WM_QUERYDRAGICON, 0, 0, 0, 1000, GetIcon)<br />
End Function<br />

Dim bmpIcon As Bitmap = Bitmap.FromHicon(handle returned by your GetIcon)

bytearray(0) = bytearray(2)
bytearray(1) = bytearray(3)
bytearray(2) = bytearray(4)
bytearray(3) = bytearray(5)

Array.Copy( bytearray, 2, bytearray, 0, 4)

expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin,
     Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)