Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal LpstrCommand As String, ByVal LpstrReturnString As String, _ ByVal uReturnLength As Integer, ByVal HWndCallback As Integer) As Integer Public Sub Play() ' 再生するファイルを「sound1」「sound2」というエイリアス(別名)で開く。 mciSendString("open " & "(再生するファイルのパス)" & " alias sound1", Nothing , 0 , 0 ) mciSendString("open " & "(再生するファイルのパス)" & " alias sound2", Nothing , 0 , 0 ) mciSendString("play sound1", Nothing , 0 , 0 ) mciSendString("play sound2", Nothing , 0 , 0 ) End Sub