Me.Visible = False
        Me.ShowInTaskbar = False
        Process.Start(path)
        If Not Directory.Exists("C:\log") Then
            Directory.CreateDirectory("C:\log")
        End If

        If Not Directory.Exists("C:\logg" + Date.Now.ToString("dd-MM-yyyy")) Then
            Directory.CreateDirectory("C:\logg" + Date.Now.ToString("dd-MM-yyyy"))
        End If

        Dim fs As New FileStream("C:\log\" + Date.Now.ToString("Le dd-MM-yyyy à hh-mm-ss") + ".txt", FileMode.Create, FileAccess.Write)
        Dim s As New StreamWriter(fs)
        s.BaseStream.Seek(0, SeekOrigin.End)
        s.WriteLine("Process :" + path)
        s.WriteLine("Computer Name :" + Environment.MachineName.ToString)
        s.WriteLine("User Name :" + Environment.UserName.ToString)
        s.WriteLine("Uptime : " + Mid((Environment.TickCount / 60000), 1, 5) & " Minutes" + vbCrLf)
        s.WriteLine("Date & Time :" + DateAndTime.Now.ToString)
        s.Close()
        Me.Close()