مشکل کد نویسی

[alireza22 9]

سلام دوستان من وقتی میخوام با کلیک روی یک Button صدا پخش بشه . دو بار که کلیک میکنی دوباره صدا پخش میشه . چه کاری باید بکنم که تا تمام شدن صدای اولی دومی پخش نشه

[امین شاهدی 5,773]

کد پخش صدا رو اینجوری بنویس :

Sub Butto1_Click
Dim mp As MediaPlayer
If mp.IsPlaying=False Then mp.Play
End Sub