Is there any method of showing what percentage of a VLC player clip in VB.NET has buffered in a label?

See more:

VB

media

VS2012

Is there any method of showing what percentage of a VLC player clip in VB.NET has buffered in a label?


For further clarification:
What I'm wanting, is to show what percentage of a clip has been buffered into a label. I am viewing this clip in VLC within VB.NET


Code so far below:

Imports System.Text.RegularExpressions

Public Class Form1
    Dim Paused As Boolean = False
    Dim Started As Boolean = False
    Dim PlayedSecond As Boolean = True
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PlayedSecond = False
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("http://binder-science.wikispaces.com/file/view/The+Characteristics+of+Living+Things.flv")
        AxVLCPlugin21.playlist.play()
        Started = True
    End Sub

    Sub playsecond()
        AxVLCPlugin21.playlist.items.clear()
        AxVLCPlugin21.playlist.add("http://postfcs.wikispaces.com/file/view/Nature+by+Numbers+%5Bwww.keepvid.com%5D.flv")
        AxVLCPlugin21.playlist.play()
        PlayedSecond = True
        Started = False
    End Sub

    Private Sub AxVLCPlugin21_pause(sender As Object, e As EventArgs) Handles AxVLCPlugin21.pause
        Paused = True
    End Sub

    Private Sub IsFinished_Tick(sender As Object, e As EventArgs) Handles IsFinished.Tick
        If Not AxVLCPlugin21.playlist.isPlaying And Paused = False And Started = True And PlayedSecond = False Then
            playsecond()
            Started = True
        End If
    End Sub

    Private Sub AxVLCPlugin21_play(sender As Object, e As EventArgs) Handles AxVLCPlugin21.play
        Paused = False
    End Sub

    Private Enum InputState
        IDLE = 0
        OPENING = 1
        BUFFERING = 2
        PLAYING = 3
        PAUSED = 4
        STOPPING = 5
        ENDED = 6
        ERRORSTATE = 7
    End Enum


    Private Sub InfoTimer_Tick(sender As Object, e As EventArgs) Handles InfoTimer.Tick
        Dim state As InputState = DirectCast(AxVLCPlugin21.input.state, InputState)
        Select Case state
            Case InputState.IDLE, InputState.OPENING, InputState.BUFFERING
                Status.Text = state.ToString()
                Exit Select
            Case InputState.PLAYING
                Dim title As String = System.IO.Path.GetFileName(AxVLCPlugin21.mediaDescription.title)
                Dim current As TimeSpan = TimeSpan.FromMilliseconds(AxVLCPlugin21.input.Time)
                Dim total As TimeSpan = TimeSpan.FromMilliseconds(AxVLCPlugin21.input.Length)
                Dim pos As Double = AxVLCPlugin21.input.Position
                Status.Text = String.Format("{0} {1} {2}:{3:D2}/{4}:{5:D2} {6:P}", state, title, current.Minutes, current.Seconds, total.Minutes, total.Seconds, pos)
                Exit Select
            Case InputState.PAUSED
                Status.Text = String.Format("{0} {1}", state, System.IO.Path.GetFileName(AxVLCPlugin21.mediaDescription.title))
                Exit Select
            Case InputState.STOPPING, InputState.ENDED
                playsecond()
                Exit Select
            Case InputState.ERRORSTATE
                Status.Text = String.Format("{0} {1}", state, AxVLCPlugin21.mediaDescription.title)
                Exit Select
            Case Else
                Status.Text = state.ToString()
                Exit Select
        End Select
    End Sub

End Class