[MSDOS]

تقضل أخي سعود

كود :

Public Class Form1

    Dim WithEvents WindowsMediaPlayer As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim op As New OpenFileDialog
        op.Filter = "all media |*.mp3;*.wma;*.mpg;*.avi;*.mp4;*.wmv"
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' معرفة مدة ملف الفيديو أو الصوت
             TrackBar1.Maximum = WindowsMediaPlayer.newMedia(op.FileName).duration

            ' تشغيل
            WindowsMediaPlayer.URL = op.FileName
            WindowsMediaPlayer.controls.play()

        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' التأكد من التشغيل
        If WindowsMediaPlayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            ' معرفة نقطة التشغيل
            TrackBar1.Value = WindowsMediaPlayer.controls.currentPosition
        End If
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        ' تغيير نقطة التشغيل
        WindowsMediaPlayer.controls.currentPosition = TrackBar1.Value
    End Sub

End Class