Можно ли засовывать музыку в программу? - VB

Формулировка задачи:

Можно ли засовывать музыку в праграмму если да то как и дайте код. Код должен делать действия: При нажатии на кнопку начинается музыка (и там уже моя музыка которую выберу ,главное скажите как?)

Решение задачи: «Можно ли засовывать музыку в программу?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Dim WithEvents cb As CommandButton, l&, t&, w&, h&
Const r = 90
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_FILENAME = &H20000     '  name is a file name
 
Private Sub cb_Click()
    PlaySound "Windows Vista Notify.wav", 0&, SND_ASYNC Or SND_FILENAME
End Sub
 
Private Sub Form_Load()
    l = r: t = r: w = r * 20: h = r * 4
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move l, t, w, h
        .Caption = "Прослушать звук"
        .Visible = 1
    End With
End Sub