[3booody]

وجزاك بالمثل اخي
واعتذر نسيت وضع الكلاس لتعم الفائدة للجميع

كود :

Public Class MediaPlayer
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Integer, ByVal lpstrBuffer As String, ByVal uLength As Integer) As Integer

    Public Event MediaOpened(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Public Event MediaClosed(ByVal sender As System.Object, ByVal e As System.EventArgs)

    Private Shared ObjectCount As Integer = 0
    Private retVal As Integer = 0
    Private returnData As String = Space(128)
    Private errorString As String = Space(128)
    Private errorSuccess As Boolean
    '
    Sub New()
        ObjectCount = ObjectCount + 1
        mFileAlias = "SND" & Hex(Now.Ticks) & Hex(ObjectCount)
    End Sub

    Sub New(ByVal pFileName As String)
        Me.New()
        Me.FileName = pFileName
    End Sub


    Private mFileAlias As String
    ReadOnly Property FileAlias() As String
        Get
            Return mFileAlias
        End Get
    End Property

    Private mFileName As String
    Property FileName() As String
        Get
            Return mFileName
        End Get
        Set(ByVal value As String)
            Me.Stop()
            Me.close()
            mFileName = value
        End Set
    End Property

    Private mLength As Long = 0
    Public ReadOnly Property Length() As Long
        Get
            Return mLength
        End Get
    End Property

    Public Property Position() As Long
        Get
            retVal = mciSendString("status " & Me.FileAlias & " position", returnData, 128, 0)
            Return Val(returnData)
        End Get
        Set(ByVal value As Long)
            If Me.IsPlaying() Then
                retVal = mciSendString("play " & Me.FileAlias & " from " & value.ToString, 0, 0, 0)
            Else
                retVal = mciSendString("seek " & Me.FileAlias & " to " & value.ToString, 0, 0, 0)
            End If
        End Set
    End Property


    Public ReadOnly Property IsPlaying() As Boolean
        Get
            retVal = mciSendString("status " & Me.FileAlias & " mode", returnData, 128, 0)
            Return returnData.StartsWith("playing")
        End Get
    End Property


    Private mVolume As Byte = 100
    Public Property volume() As Byte
        Get
            Return mVolume
        End Get
        Set(ByVal value As Byte)
            If value > 100 Then
                value = 100
            End If
            mVolume = value

            Dim vol As Integer = (Me.volume * 10)
            retVal = mciSendString("setaudio " & Me.FileAlias & " volume to " & vol.ToString, 0, 0, 0)

        End Set
    End Property

    Private mIsOpen As Boolean = False
    Sub open(ByVal sFileName As String)
        Me.FileName = sFileName
        Me.open()
    End Sub

    Public ScreenHandel As Int32 = 0

    Sub open()
        Me.close()
        If ScreenHandel <= 0 Then
            retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias, 0, 0, 0)
        Else
            retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias & " parent " & ScreenHandel.ToString & " style " & "child" & " ", 0, 0, 0)
        End If

        retVal = mciSendString("set " & Me.FileAlias & " time format ms", 0, 0, 0)

        retVal = mciSendString("status " & Me.FileAlias & " length", returnData, 128, 0)
        mLength = Val(returnData)
        mIsOpen = True
        Me.volume = Me.volume
        RaiseEvent MediaOpened(Me, New System.EventArgs)
    End Sub

    Sub Play(Optional ByVal repate As Boolean = False)
        If repate = True Then
            Me.Play("repeat")
        Else
            Play("")
        End If
    End Sub


    Sub Play(ByVal pFileName As String, ByVal pRepate As Boolean)
        Me.FileName = pFileName
        Me.Play(pRepate)
    End Sub

    Sub Play(ByVal pCommand As String)
        Dim Cmd As String = "play " & Me.FileAlias & " " & pCommand
        If mIsOpen = False Then
            Me.close()
            Me.open()
        End If
        retVal = mciSendString(Cmd, 0, 0, 0)
    End Sub


    Sub Pause()
        retVal = mciSendString("pause " & Me.FileAlias, 0, 0, 0)
    End Sub


    Sub [resume]()
        retVal = mciSendString("resume " & Me.FileAlias, 0, 0, 0)
    End Sub

    Sub [Stop]()
        retVal = mciSendString("stop " & Me.FileAlias, 0, 0, 0)
    End Sub


    Sub close()
        Me.Stop()
        retVal = mciSendString("close " & Me.FileAlias, 0, 0, 0)
        '----------------------------------
        If mIsOpen = True Then
            RaiseEvent MediaClosed(Me, New System.EventArgs)
        End If
        '----------------------------------
        mIsOpen = False
        mLength = 0
        '--------------------------------------

    End Sub

End Class