다이얼로그상자

다이얼로그상자에서
파일을 하나박에 못선택하던데
여러개 선택이나드래그로 여러개 가져와서 리스트에 담고싶은데 어떤방법이 있나요 ?
Private Sub Command1_Click()
CD1.Filter = 재생가능한파일|*.mp3;*.wav|모든파일|*.*CD1.CancelError = FalseCD1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorerCD1.ShowOpen
add_List
End SubFunction add_List()List1.AddItem Left(CD1.FileTitle, Len(CD1.FileTitle) - 4)List2.AddItem CD1.FileNameEnd Function
Private Sub Command2_Click()
If Command2.Caption = ▶ ThenWindowsMediaPlayer1.Controls.playCommand2.Caption = ⅡElseIf Command2.Caption = Ⅱ ThenWindowsMediaPlayer1.Controls.pauseCommand2.Caption = ▶End IfEnd Sub
Private Sub Command3_Click()WindowsMediaPlayer1.Controls.stopCommand2.Caption = ▶End Sub
Private Sub Command4_Click()On Error Resume NextList1.ListIndex = List1.ListIndex - 1List2.ListIndex = List2.ListIndex - 1End Sub
Private Sub Command5_Click()On Error Resume NextList1.ListIndex = List1.ListIndex + 1List2.ListIndex = List2.ListIndex + 1End SubPrivate Sub List1_Click()List2.ListIndex = List1.ListIndexWindowsMediaPlayer1.URL = List2.List(List2.ListIndex)WindowsMediaPlayer1.Controls.stopCommand2.Caption = ▶End Sub