Melt

Public Shared Function Melt() As Boolean
            'Credits to Santa
            Try
                Dim r As New Random
                Dim s_name As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\" & r.Next(11111, 99999) & ".bat"
                Dim s_batch As String = New String(String.Format("@echo off{0}del ""{1}""", Environment.NewLine, Application.ExecutablePath))
                IO.File.WriteAllText(s_name, s_batch)
                Process.Start(s_name)
                End
                Return True
            Catch ex As Exception
                Return False
            End Try
        End Function