Imports Vlc.DotNet.Core
Imports Vlc.DotNet.Forms
Imports System.IO
 
Public Class Form1
 
    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnPlay.Click
        Try
            Dim VideoMedia As Medias.MediaBase = New Medias.LocationMedia( _
              "D:\Test.MP4")
            VlcControl1.Media = VideoMedia
            VlcControl1.Play()
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub btnScr_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnScr.Click
        VlcControl1.TakeSnapshot("D:\Test.jpg", 0, 0)
    End Sub
 
End Class