first commit

lecteur/lecteur média/upfilm3.vb

@@ -0,0 +1,17 @@
+Imports System.ComponentModel
+
+Public Class upfilm3
+    Public dl As Integer = 1
+    Private Sub upfilm3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.BackColor = Form1.BackColor
+    End Sub
+
+    Private Sub upfilm3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If dl = 1 Then
+            e.Cancel = True
+            MsgBox("merci d'entendre le fin de la mis en ligne", MsgBoxStyle.Exclamation)
+        Else
+
+        End If
+    End Sub
+End Class