Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter=(*.mp4)|*.mp4*
If OpenFileDialog1.ShowDialog=DialogResult.OK Then
AxVLCPlugin21.playlist.add(OpenFileDialog1.Filename)
End IF
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button3.Click
        AxVLCPlugin21.playlist.stop()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button4.Click
        AxVLCPlugin21.playlist.togglePause()
    End Sub