Как сделать простенький плеер с плейлистом - VB

Option Explicit
 
Private Sub Form_Load()
    List1.OLEDropMode = 1
End Sub
  
Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
If Data.Files.Count < 1 Then
 
Else
    For i = 1 To Data.Files.Count
        List1.AddItem Data.Files(i)
    Next i
End If
End Sub