Visual Basic

Private Declare Function SendMessage Lib "user32" _<br />
       Alias "SendMessageA" _<br />
      (ByVal hwnd As IntPtr, _<br />
       ByVal wMsg As Integer, _<br />
       ByVal wParam As Integer, _<br />
    ByVal lParam As HD_ITEM) As Long<br />
<br />
    Const LVM_FIRST = &H1000<br />
    Const LVM_GETHEADER = (LVM_FIRST + 31)<br />
<br />
    Const HDI_BITMAP = &H10<br />
    Const HDI_IMAGE = &H20<br />
    Const HDI_FORMAT = &H4<br />
    Private Const HDI_TEXT = &H2<br />
<br />
    Private Const HDF_BITMAP_ON_RIGHT = &H1000<br />
    Private Const HDF_BITMAP = &H2000<br />
    Private Const HDF_IMAGE = &H800<br />
    Private Const HDF_STRING = &H4000<br />
<br />
    Private Const HDM_FIRST = &H1200<br />
    Private Const HDM_SETITEM = (HDM_FIRST + 4)<br />
    Private Const HDM_SETIMAGELIST = (HDM_FIRST + 8)<br />
    Private Const HDM_GETIMAGELIST = (HDM_FIRST + 9)<br />
    Private Structure HD_ITEM<br />
        Dim mask As Integer<br />
        Dim cxy As Integer<br />
        Dim pszText As String<br />
        Dim hbm As Integer<br />
        Dim cchTextMax As Integer<br />
        Dim fmt As Integer<br />
        Dim lParam As Integer<br />
        Dim iImage As Integer<br />
        Dim iOrder As Integer<br />
    End Structure

Dim hHeader As IntPtr = ShellDll.SendMessage(lstView.Handle, Win32.WindowsMessages.LVM_GETHEADER, 0, 0)<br />
        Dim lvImage As IntPtr = ShellDll.SendMessage(hHeader, Win32.WindowsMessages.HDM_SETIMAGELIST, 0, CInt(Me.imgArrows.Handle.ToInt32))<br />
        Dim lret As IntPtr<br />
<br />
        For i As Integer = 0 To lstView.Columns.Count - 1<br />
            'Use the LVM_SETCOLUMN message to set the column's image index.<br />
            Dim HD As New HD_ITEM<br />
            Dim pblnAlignRight As Boolean<br />
<br />
            With HD<br />
                .mask = HDI_IMAGE Or HDI_FORMAT<br />
                .pszText = lstView.Columns(i).Text<br />
            End With<br />
<br />
            If lstView.Columns(i).TextAlign = HorizontalAlignment.Right Then<br />
                pblnAlignRight = True<br />
            Else<br />
                pblnAlignRight = False<br />
            End If<br />
            If i = ColumnIndex Then<br />
                With HD<br />
                    .fmt = HDF_STRING Or HDF_IMAGE Or HDF_BITMAP_ON_RIGHT<br />
                    .iImage = IconIndex<br />
                End With<br />
            Else<br />
                HD.fmt = HDF_STRING<br />
            End If<br />
<br />
            SendMessage(hHeader, HDM_SETITEM, i, HD)'error occurs here<br />
            <br />
        Next