How to get duration/time elapsed of a media in DirectX VB .NET

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim CurrentPosition As Double
        If IsVideo Then
            CurrentPosition = VideoFile.CurrentPosition
        Else
            CurrentPosition = AudioFile.CurrentPosition
        End If
        'HScrollBar1.Value = Convert.ToInt32(CurrentPosition)
        'TrackOffset.Value = Convert.ToInt32(CurrentPosition)
        ColorSlider1.Maximum = AudioFile.Duration
        ColorSlider1.Value = AudioFile.CurrentPosition
        Dim ElapsedTime As TimeSpan = New TimeSpan(0, 0, CurrentPosition)
        ToolStripLabel5.Text = Int((ColorSlider1.Value / ColorSlider1.Maximum) * 100).ToString() & "%"
        ToolStripLabel1.Text = Format(Int((AudioFile.CurrentPosition) / 3600), "00") & ":" & _
                               Format(Int((AudioFile.CurrentPosition) / 60) Mod 60, "00") & ":" & _
                               Format(Int((AudioFile.CurrentPosition) Mod 60), "00").ToString & " / " & _
                               Format(Int(AudioFile.Duration / 3600), "00") & ":" & _
                               Format(Int((AudioFile.Duration - Int(AudioFile.Duration / 3600) * 3600) / 60), "00") & ":" & _
                             Format(Int(AudioFile.Duration - Int(AudioFile.Duration / 60) * 60), "00")
        If ColorSlider1.Value Then
            ToolStripLabel3.Text = "Position: " & Int(AudioFile.CurrentPosition)
            If IsVideo Then
                If CurrentPosition = VideoFile.Duration Then Button8.PerformClick() : CheckRepeat()
            Else
                If CurrentPosition = AudioFile.Duration Then Button8.PerformClick() : CheckRepeat()
               
            End If
        End If



    End Sub