El primer código es el formulario de un proyecto...

El segundo código es una Class que contiene un control extendido...

...Ya te lo dije, si no aprendes lo básico yo no te facilitaré códigos (Ni a nadie que siga el mismo camino),
si para ti ha sido imposible ver o entender la diferencia entre esos dos codes (No me extraña, no lees) aquí tienes algo de información para empezar a leer y entender como se puede usar el segundo code:

Google + VBNET + User controls



Saludos

Si leyeras sin prisas verías que NovLucker no ha aportado Snippets porque él no tiene Snippets (Como dijo en los comentarios del principio de este hilo), símplemente comentó para ayudarme a intentar perfeccionar la manera en la que yo codeaba las cosas.

Saludos

ABDERRAMAH

Las visitas me dan igual ...pero es una situación crítica que de 10.000 lecturas sólamente 3 personas (incluida yo) hayan participado a contribuir.

 Abre un archivo o una carpeta en el explorador de Windows

#Region " Open In Explorer "
 
    ' [ Open In Explorer ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Open_In_Explorer("C:\Folder\")
    ' Open_In_Explorer("C:\Folder\File.txt")
 
    Private Sub Open_In_Explorer(ByVal File_Or_Folder As String)
 
        If File_Or_Folder.EndsWith("\") Then File_Or_Folder = File_Or_Folder.Substring(0, File_Or_Folder.Length - 1)
 
        If IO.Directory.Exists(File_Or_Folder) Then
            Dim FileInformation As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(File_Or_Folder)
            Process.Start("explorer.exe", " /select," & IO.Path.Combine(FileInformation.DirectoryName, FileInformation.Name))
        ElseIf IO.File.Exists(File_Or_Folder) Then
            Dim FolderInformation As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(File_Or_Folder)
            Process.Start("explorer.exe ", FolderInformation.FullName)
        Else
            Throw New Exception(File_Or_Folder & " doesn't exist")
        End If
 
    End Sub
 
#End Region

---

 Abre un dialogo y selecciona un proceso para ejecutar un archivo.

#Region " Open With... "
 
    ' [ Open With... ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Open_With("C:\File.txt") ' And select "Notepad.exe" in the Dialog...
 
    Private Sub Open_With(ByVal File_Or_Folder As String)
 
        Dim OpenWith As New OpenFileDialog()
        OpenWith.InitialDirectory = Environ("programfiles")
        OpenWith.Title = "Open file with..."
        OpenWith.Filter = "Application|*.exe"
 
        If OpenWith.ShowDialog() = DialogResult.OK Then
            Process.Start(OpenWith.FileName, " " & """" & File_Or_Folder & """")
        End If
 
    End Sub
 
#End Region

Unos snippets que hice para usarlos con ListViews:

• Auto scrollea un Listview hasta el último Item.

   ' Scroll ListView
    Private Sub Scroll_ListView(ByVal ListView_Name As ListView)
        ListView_Name.EnsureVisible(ListView_Name.Items.Count - 1)
    End Sub

---

• Deshabilita el menú contextual si no hay ningún Item seleccionado.

    ' [ListView] Auto-Disable ContextMenu
    Private Sub ContextMenu_Opening(sender As System.Object, e As System.ComponentModel.CancelEventArgs) _
    Handles Listview1_ContextMenu.Opening
 
        If ListView1.SelectedItems.Count = 0 Then e.Cancel = True
 
    End Sub
 

---

• Copia el contenido de un Item al portapapeles

#Region " [ListView] Copy Item To Clipboard "
 
 
    ' [ [ListView] Copy Item To Clipboard ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Copy_Selected_Items_To_Clipboard(ListView1, 0)    ' Copies Item 0
    ' Copy_Selected_Items_To_Clipboard(ListView1, 0, 2) ' Copies SubItem 2 of Item 0
 
    Private Sub Copy_Item_To_Clipboard(ByVal ListView_Name As ListView, _
                                       ByVal Item As Int32, _
                                       Optional ByVal SubItem As Int64 = 0)
 
        Clipboard.SetText(ListView_Name.Items(Item).SubItems(SubItem).Text)
 
    End Sub
 
#End Region

---

•  Copia el contenido de los items seleccionados al portapapeles

#Region " [ListView] Copy Selected-Items To Clipboard "
 
    ' [ [ListView] Copy Selected-Items To Clipboard ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Copy_Selected_Items_To_Clipboard(ListView1)    ' Copies all SubItems of selected Items
    ' Copy_Selected_Items_To_Clipboard(ListView1, 2) ' Copies only SubItem 2 of selected Items
 
    Private Sub Copy_Selected_Items_To_Clipboard(ByVal ListView_Name As ListView, _
                                                 Optional ByVal SubItem As Int32 = -0)
 
        Dim text As String = String.Empty
 
        For Each Entry As ListViewItem In ListView_Name.SelectedItems()
 
            If SubItem = -0 Then
                For Each Subi As ListViewItem.ListViewSubItem In ListView_Name.Items(Entry.Index).SubItems
                    text &= " " & Subi.Text
                Next
                text &= ControlChars.NewLine
            Else
                text &= ControlChars.NewLine & ListView_Name.Items(Entry.Index).SubItems(SubItem).Text
            End If
 
        Next
 
        Clipboard.SetText(text)
 
    End Sub
 
#End Region

Parece que símplemente se han movido: http://kickass.to/

Saludos.

¿Aún no lo has probado?

He pasado por lo mismo que tu (mas o menos), si no utilizas el programa que te dije (o uno dedicado a lo mismo) no vas a poder desinstalarlo, y una vez lo desinstalas con el uninstalltool no queda ni rastro, y puedes volver a instalarlo de nuevo sin problemas.

Pero eres libre de hacer caso de mi consejo,
Saludos!

¿En que lenguaje?.

Hola.

Pues según de la forma en que lo planteaste, eso no puedes hacerlo.

Lo que te sugiero es que escribas un archivo de lista multimedia (por ejemplo una lista de tipo "m3u"), y ahí escribas los videos que deseas reproducir, se reproducirán uno detrás de otro.

...Símplemente eso, escribir el M3U y ejecutar el M3U a "X" hora.

Para ejecutar una accion a cierta hora puedes usar el programador de tareas de Windows, puedes hacerlo así, o usando Batch, o con miles de programas que sirven precísamente para eso.

Saludos!