[ALBRNS]

وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "\Eqlas.mp3"
End Sub

Private Sub Command2_Click()
If Command2.Caption = "ايقاف الصوت" Then
WindowsMediaPlayer1.settings.mute = True
Command2.Caption = "تشغيل الصوت"
Else
WindowsMediaPlayer1.settings.mute = False
Command2.Caption = "ايقاف الصوت"
End If
End Sub

Private Sub Command3_Click()
If Command3.Caption = "ايقاف مؤقت" Then
WindowsMediaPlayer1.Controls.pause
Command3.Caption = "استمرار"
Else
WindowsMediaPlayer1.Controls.play
Command3.Caption = "ايقاف مؤقت"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "تشغيل"
Command2.Caption = "ايقاف الصوت"
Command3.Caption = "ايقاف مؤقت"
End Sub 


بالتوفيق