vb 在form1中选择好音乐文件，在form2中自动播放

干吗要在 Form2中去播放呀？

不太明白你的想法。

你先参考一下这段代码（把你的原代码相应过程替换）：

'添加部件： Windows Media Player
'窗口上画一个 MediaPlayer1控件、一个ListBox
Option Explicit

Private sMp3List() As String
Private strPath   As String

Private Sub Command4_Click()
   Dim i As Long
'要顺利打开多个文件，必须加大缓冲区大小(字节数)
'否则，选取较多文件时，会出现异常
On Error GoTo E_Exit
CommonDialog1.MaxFileSize = 9600
CommonDialog1.Flags = &H80204
CommonDialog1.Filter = "音乐文件.mp3|*.mp3|音乐文件.wav|*.wav|音乐文件.flac|*.flac"
CommonDialog1.FileName = ""      '注意先清除
CommonDialog1.ShowOpen
sMp3List = Split(CommonDialog1.FileName, vbNullChar)
List1.Clear
'现在这个代码只是处理同一个文件夹下的多个文件
'如果要播放不同文件夹下的多个文件，要用另外的方法处理
strPath = sMp3List(0) & "\"
For i = 1 To UBound(sMp3List)
   List1.AddItem sMp3List(i)
Next
' 用控件来播放，或调用其它播放接口。首先播放第1首
   MediaPlayer1.FileName = strPath & sMp3List(1)
   MediaPlayer1.Play
E_Exit:
End Sub

Private Sub List1_Click()
' 用控件来播放，或调用其它播放接口
   MediaPlayer1.FileName = strPath & sMp3List(List1.ListIndex + 1)
   MediaPlayer1.Play
End Sub

eise那里不对，应该是eises