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