Option Explicit
Private Const LVM_FIRST = &H1000
Private Const LVM_SETCOLUMNWIDTH = LVM_FIRST +  30 

Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal Msg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long

Private Sub Form_Load()

   Dim itmx As ListItem
   Dim lWidth As Long

   With ListView1
      Set itmx = .ListItems.Add(, , "Randy")

      Set itmx = .ListItems.Add(, , "Jon")
      Set itmx = .ListItems.Add(, , "Peter")
      Set itmx = .ListItems.Add(, , "Matthew")
      Set itmx = .ListItems.Add(, , "a much longer name")
      Set itmx = .ListItems.Add(, , "a much much longer name")
      Set itmx = .ListItems.Add(, , "a really friggin much longer name")
      Set itmx = .ListItems.Add(, , "a really friggin much loooooonger name")
   End With

   'need this here or the lines below won't work in the Load event 
   Me.Show
   Me.Refresh

   ' resize View -2 column to the control's width (give or take a bit) 
   lWidth = ListView1.Width + ScaleX( 5 , vbMillimeters, vbPixels)

   SendMessage ListView1.hwnd, _
               LVM_SETCOLUMNWIDTH, _
                0 &, _
               ByVal lWidth


End Sub