VB.NET Xigncode3 Clear Source

Imports System.Windows.Forms
Imports Microsoft.Win32
Module Module1

    Sub Main()
        Console.ForegroundColor = ConsoleColor.DarkRed
        Console.WriteLine("Scanning Folders...")
        System.Threading.Thread.Sleep(200)
        Dim ListPaths As New ListBox
        Dim xhunter_p As String = "C:\Windows\xhunter1.sys"
        Dim xspirit_p As String = "C:\Windows\xspirit.sys"
        Dim WTPath As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Direct3D\Shims\MaximizedWindowedMode")
        For Each ValX As String In WTPath.GetValueNames
            Console.ForegroundColor = ConsoleColor.Green
            Console.WriteLine("[FOUND] " & ValX.Replace("wolftü.bin", ""))
            ListPaths.Items.Add(ValX.Replace("wolftü.bin", ""))
        Next
        Console.ForegroundColor = ConsoleColor.DarkRed
        Try
            For Each XItem As String In ListPaths.Items
                Console.WriteLine("[DELETING] XIGNCODE.LOG")
                Console.WriteLine("[DELETING] XM.EXE")
                System.IO.File.Delete(XItem & "xigncode/xigncode.log")
                System.IO.File.Delete(XItem & "xigncode/xm.exe")
            Next
        Catch ex As Exception
        End Try
        Try
            ' C:\Windows
            Console.WriteLine("[DELETING] XHUNTER1.SYS")
            Console.WriteLine("[DELETING] XSPIRIT.SYS")
            System.IO.File.Delete(xhunter_p)
            System.IO.File.Delete(xspirit_p)
        Catch ERROR_0 As Exception
            Try
                If System.IO.File.Exists(xhunter_p) Then
                    System.IO.File.Move(xhunter_p, "C:\Windows\Temp")
                End If
                If System.IO.File.Exists(xspirit_p) Then
                    System.IO.File.Move(xspirit_p, "C:\Windows\Temp")
                End If
            Catch ERROR_1 As Exception

            End Try
        End Try
        Try
            For Each x As String In System.IO.Directory.GetFiles("C:\Windows\Prefetch")
                Console.WriteLine("[DELETING] " & x.ToUpper)
                System.IO.File.Delete(x)
            Next
            For Each x As String In System.IO.Directory.GetFiles("C:\Windows\Temp")
                Console.WriteLine("[DELETING] " & x.ToUpper)
                System.IO.File.Delete(x)
            Next
            Dim di As New IO.DirectoryInfo(My.Computer.FileSystem.SpecialDirectories.Temp)
            Dim aryFi As IO.FileInfo() = di.GetFiles("*.tmp")
            Dim dra As IO.FileInfo
            For Each dra In aryFi
                Console.WriteLine("[DELETING] " & dra.FullName.ToUpper)
                System.IO.File.Delete(dra.FullName)
            Next
        Catch ex As Exception

        End Try
        Console.WriteLine("Done! , Press any key to exit...")
        Console.ReadLine()
    End Sub

End Module