Help again with sizing Listview?

[machine_wars]

I'm using this code to size my Listview but the scrollbars are messing up.

Private Sub Form_Resize()
    ListView1.Height = ScaleHeight - Frame1.Height - sbrData.Height
    ListView1.Width = ScaleWidth
    ListView1.Top = Frame1.Top + Frame1.Height
    Call ShowProgressInStatusBar(True)
End Sub