Sn:burak2444
Sn:okileturc hocanın vermiş olduğu kodu formun load olayına yada bir butonun cilck olaynına aşağıdaki şekilde yazınız ve dosyanzın yanına mizik dosyasını ekleyiniz.

PlaySound=CurrentProject.Path & "\Hacel Obasını.wav"

Benim eklediğin örnekte ise aşağıdaki kodda Hacel obası olanı kendi eklediğiniz mp3 adı ile değiştiriniz.

Private Sub Form_Load()

Dim Hata As Long

Dim HataMesaji As String * 128

Hata = mciSendString("open " & Chr$(34) & CurrentProject.Path & "\Hacel Obasını.mp3" & Chr$(34) & " alias YeniSes", 0, 0, 0)

mciGetErrorString Hata, HataMesaji, 128

End Sub