Thanks for the help but i solved it my self
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
playList.Clear()
playList.AddRange(OpenFileDialog1.FileNames)
For Each File In playList
objItem = myplaylist.Items.Add(My.Computer.FileSystem.GetFileInfo(File).Name)
objItem.SubItems.Add((New FileInfo(File).Length / 1000).ToString("f2") + " " + "KB")
Next
End If