butona tıkladıktan 30 sn sonra xx.wma nasıl çalar

[osmanfenerli1907]

merhaba
ben buton1 e tıkladıktan 30 sn sonra c: nin içindeki xx.wma yı nasıl çaldırabilirim
yardımlarınızı bekliyorum
iyi günler

 

[Recep İpek]

Bu arada başka bir işlem yapacakmısınız?Yoksa 30 sn. beklenecek mi?

 

[hamitcan]

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub cal()
sndPlaySound "C:\xx.wma", 1
End Sub

sub nn()
Application.OnTime Now + TimeValue("00:00:30"), "cal"
End Sub