Private Sub ListBox1_Click()
Dim resL As Long

    '指定したパスが正常なら音楽を鳴らす
    'そうでなければタイトルにメッセージを表示
    resL = PlaySound(ListBox1.Value, 0, SND_ASYNC)
        If resL = 0 Then
            Me.Caption = "認識出来ない形式です"
            Exit Sub
        End If
        
    'リストボックスにファイル名を表示
    'リストボックスのValue プロパティとTextプロパティーでは返す値が違います
    'フルパスを返すか、ファイル名を返すかの違いです
    Me.Caption = ListBox1.Text

End Sub

'-----------------------------------------------------------------------------------------
Sub Waveファイル名を変数で指定して再生する()
Dim resL As Long
Dim パス As String
Dim ファイル名 As String
    パス = "C:\WINDOWS\MEDIA\"                  'これはWindowsのフォルダです
    ファイル名 = "Tada.wav"                     'このサウンドはWindowsXPとMeにもあります
    resL = PlaySound(パス & ファイル名, 0, SND_ASYNC)
End Sub
'-----------------------------------------------------------------------------------------