first commit

lecteur/lecteur média/Form10.vb

@@ -0,0 +1,24 @@
+Imports System.IO
+Public Class Form10
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim mer As Integer = 0
+        Dim lang As Integer = 2
+
+        If CheckBox1.Checked = True Then
+            mer = 1
+        Else
+            CheckBox1.Checked = False
+            mer = 0
+        End If
+
+
+    End Sub
+
+    Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub Form10_Closed(sender As Object, e As EventArgs) Handles Me.Closed
+        Form1.Show()
+    End Sub
+End Class