[احمد الوائلي]

السلام عليكم اخي , ارجو ان يساعدك هذا الكود اسفله :- اكيد بعد اضافة الاداة الى بيئة العمل :- 


' لتشغيل الفيديو
Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
    AxWindowsMediaPlayer1.URL = "C:\مسار_الفيديو\video.mp4"
    AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

' لإيقاف الفيديو
Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
    AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

' لتقديم الفيديو 5 ثواني
Private Sub btnForward_Click(sender As Object, e As EventArgs) Handles btnForward.Click
    AxWindowsMediaPlayer1.Ctlcontrols.currentPosition += 5
End Sub

' لإعادة الفيديو 5 ثواني
Private Sub btnRewind_Click(sender As Object, e As EventArgs) Handles btnRewind.Click
    AxWindowsMediaPlayer1.Ctlcontrols.currentPosition -= 5
End Sub