<SuppressUnmanagedCodeSecurity>
Friend NotInheritable Class NativeMethods
 
    Private Sub New()
    End Sub
 
    <DllImport("user32.dll", SetLastError:=True)>
    Friend Shared Function GetWindowRect(ByVal hwnd As IntPtr,
                                   <Out> ByRef refRc As Rect
    ) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
 
    <DllImport("user32.dll", SetLastError:=True)>
    Friend Shared Function SendMessage(ByVal hwnd As IntPtr,
                                       ByVal msg As ListViewMessages,
                                       ByVal wParam As IntPtr,
                                       ByVal lParam As IntPtr
    ) As IntPtr
    End Function
 
    Friend Enum ListViewMessages As Integer
 
        <Browsable(False)>
        <EditorBrowsable(EditorBrowsableState.Never)>
        First = &H1000 ' LVM_FIRST defined in the Windows SDK file: CommCtrl.h
 
        GetHeader = (ListViewMessages.First + 31)
 
    End Enum
 
    <StructLayout(LayoutKind.Sequential)>
    Friend Structure Rect
 
        Public Property Left As Integer
        Public Property Top As Integer
        Public Property Right As Integer
        Public Property Bottom As Integer
 
        Public Sub New(ByVal left As Integer, ByVal top As Integer,
                       ByVal right As Integer, ByVal bottom As Integer)
 
            Me.Left = left
            Me.Top = top
            Me.Right = right
            Me.Bottom = bottom
 
        End Sub
 
        Public Shared Widening Operator CType(rect As Rect) As Rectangle
            Return New Rectangle(rect.Left, rect.Top, (rect.Right - rect.Left), (rect.Bottom - rect.Top))
        End Operator
 
    End Structure
 
End Class

Imports System.Runtime.InteropServices
Friend Class HeaderControl
  Inherits NativeWindow
 
  <DllImport("user32.dll", EntryPoint:="SendMessage")>
  Private Shared Function SendMessage(hwnd As IntPtr, wMsg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
  End Function
 
  Private Const LVM_GETHEADER As UInt32 = &H101F
  Private Const WM_MOUSEMOVE As Int32 = &H200
 
  Public Sub New(LV As ListView)
    'Get handle to LV header
    Dim hWnd_LV_Header As IntPtr = SendMessage(LV.Handle, LVM_GETHEADER, IntPtr.Zero, IntPtr.Zero)
    If hWnd_LV_Header <> IntPtr.Zero Then
      Me.AssignHandle(hWnd_LV_Header)
      AddHandler LV.HandleDestroyed, AddressOf LV_destroy ' To release handle when LV destroyed?
    End If
  End Sub
 
  Private Sub LV_destroy(sender As Object, e As EventArgs)
    Me.ReleaseHandle()
  End Sub
 
  ' subclass LV header...
  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    Select Case m.Msg
      Case WM_MOUSEMOVE ' https://msdn.microsoft.com/en-us/library/windows/desktop/ms645616%28v=vs.85%29.aspx
        ' show mouse location over LV column header
        Debug.WriteLine("x={0}, y={1}", m.LParam.ToInt32 And &HFFFF&, m.LParam.ToInt32 \ &H10000 And &HFFFF&) ' http://support.microsoft.com/kb/112651
    End Select
    MyBase.WndProc(m)
  End Sub
End Class

Public Class ListView
  Inherits Windows.Forms.ListView
 
  Public Sub New()
    '
  End Sub
 
  Protected Overrides Sub WndProc(ByRef m As Message)
    'mensajes de listview
    MyBase.WndProc(m)
  End Sub
 
End Class