Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hWnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, _
   ByVal lParam As Integer) As Integer
 
  Public Sub optimalWidth(ByVal lv As ListView)
    Dim t%
 
    Dim a As System.windows.forms.ListView
 
    For t = 0 To lv.Columns.Count - 1
      SendMessage(lv.Handle.ToInt32, &H101E, t, -1)
    Next
  End Sub