Private Sub ListView1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ListView1.Resize
        Dim tmpWidth As Integer = 0
        With DirectCast(sender, ListView)
            For colIndex As Integer = 0 To .Columns.Count - 2 
                tmpWidth += .Columns(colIndex).Width
            Next
            .Columns(.Columns.Count - 1).Width = .Width - tmpWidth
        End With
        tmpWidth = Nothing
    End Sub