first commit

lecteur/lecteur média/diffuser.vb

@@ -0,0 +1,19 @@
+Imports System.IO
+Imports GoogleCast
+Public Class diffuser
+
+    Private Sub diffuser_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Dim lines1a() As String = File.ReadAllLines(théme)
+
+        If lines1a(0) = 2 Then
+            Me.BackColor = Color.FromArgb(64, 64, 64)
+
+        Else
+
+        End If
+
+        Dim tr As New DeviceLocator
+
+
+    End Sub
+End Class