'для событий ListView1
Public Function NewListView1WindowProc _
  (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case Msg
...
   Case WM_PAINT:
     DrawHeaders Form1.ListView1

...

Public Sub DrawHeaders(ListView As ComctlLib.ListView)
  'перерисовка,ибо сам не удосуживается это сделать
  Dim pvHeaderhWnd As Long
  Dim lvFormat As LV_COLUMN
    
  pvHeaderhWnd = SendMessageLong(ListView.hwnd, LVM_GETHEADER, 0, 0)
  Call RedrawWindow(pvHeaderhWnd, ByVal 0&, ByVal 0&, RDW_INVALIDATE Or RDW_FRAME Or RDW_UPDATENOW)
    Dim rRB As RECT
    
  GetClientRect pvHeaderhWnd, rRB
  SetWindowPos pvHeaderhWnd, 0, 0, 0, rRB.Right - rRB.Left, 25, SWP_SHOWWINDOW
  
End Sub

  //*** Decreases the table list height on the table header height
  pRect->top += m_nHdrHeight;

 //*** Decreases the table list height on the table header height
  pRect->top = m_nHdrHeight;