Public Function ListView_IsVScrollBarVisible(m_ListView As ComctlLib.ListView) As Boolean
  Dim lStyle As Long
  lStyle = GetWindowLong(m_ListView.hwnd, GWL_STYLE)
  If (lStyle And WS_VSCROLL) Then
    ListView_IsVScrollBarVisible = True
  Else
    ListView_IsVScrollBarVisible = False
  End If
End Function

Public Sub SetMyColumnWidth()
  If ListView_IsVScrollBarVisible(ListView1) Then
    SetColumnWidthPX ListView1, 1, ListView1.Width - (GetSystemMetrics(SM_CXHTHUMB) + 4)
  Else
    SetColumnWidthPX ListView1, 1, ListView1.Width - 4
  End If
End Sub

  pvSetBorderStyle ListView1.hwnd, eBorderStyleConstants.bsThin

Private Sub Form_Activate()
  SetMyColumnWidth
End Sub

Private Sub CommandAdd_Click()
  ListView1.ListItems.Add (ListView1.ListItems.Count + 1), , "my item " & (ListView1.ListItems.Count)
  'кроме XP, там с фоновой картинкой будет черный фон
  If IsWinVista Or IsIDEApp Then _
   ListViewSetItemPicture ListView1, ListView1.ListItems.Count, 0 '0=SETUP
  ListView1.ListItems(ListView1.ListItems.Count).Selected = True
  SetMyColumnWidth
  DrawListView
End Sub

Private Sub CommandRemove_Click()
  If ListView1.ListItems.Count > 0 Then _
   ListView1.ListItems.Remove ListView1.ListItems.Count
  SetMyColumnWidth
  DrawListView
End Sub

   Case WM_STYLECHANGED:
     Form1.SetMyColumnWidth

Public Function NewListHeadWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  'для событий listview1
  Static pt As POINTAPI
  Static HTI As HD_HITTESTINFO
  If (Msg = &H201) Then 'WM_LBUTTONDOWN
  ElseIf (Msg = &H203) Then 'WM_LBUTTONDBLCLK
  Else
    GoTo Dalshe
  End If
  Call GetCursorPos(pt)
  Call ScreenToClient(hwnd, pt)
  'get the header's hit-test info
  With HTI
    .pt = pt
  End With
  Call SendMessage(hwnd, HDM_HITTEST, 0&, HTI)
  If (HTI.Flags = HHT_ONDIVIDER) Or (HTI.Flags = HHT_ONDIVOPEN) Then Exit Function   'HHT_ONDIVOPEN HHT_ONDIVIDER 'Or HHT_ONDIVOPEN)
Dalshe:
  NewListHeadWindowProc = CallWindowProc( _
   OldListHeadWindowProc, hwnd, Msg, wParam, _
   lParam)
End Function