#Region " Get OS Architecture Function "
 
    ' [ Get OS Architecture Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Dim Architecture = Get_OS_Architecture()
 
    Private Function Get_OS_Architecture() As Integer
        Dim Bits = Runtime.InteropServices.Marshal.SizeOf(GetType(IntPtr)) * 8
        Select Case Bits
            Case 32 : Return 32 ' x86
            Case 64 : Return 64 ' x64
            Case Else : Return Nothing ' xD
        End Select
    End Function
 
#End Region

    ' Examples:
    '
    ' Test(0)
    ' Test"0")
 
    Sub Test(ByVal Argument As Integer)
        MsgBox("Integer: " & Argument)
    End Sub
 
    Sub Test(ByVal Argument As String)
        MsgBox("String: " & Argument)
    End Sub

#Region " Get All Files Function "
 
    ' [ Get All Files Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples:
    '
    ' Dim Files As Array = Get_All_Files("C:\Test", True)
    ' For Each File In Get_All_Files("C:\Test", False) : MsgBox(File) : Next
 
    Private Function Get_All_Files(ByVal Directory As String, Optional ByVal Recursive As Boolean = False) As Array
        If System.IO.Directory.Exists(Directory) Then
            If Not Recursive Then : Return System.IO.Directory.GetFiles(Directory, "*", IO.SearchOption.TopDirectoryOnly)
            Else : Return IO.Directory.GetFiles(Directory, "*", IO.SearchOption.AllDirectories)
            End If
        Else
            Return Nothing
        End If
    End Function
 
#End Region

 IO.Directory.GetFiles(Directory, "*.exe, *.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe; *.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe" + "*.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe" + IO.Path.AltDirectorySeparatorChar + "*.vb")
 
 IO.Directory.GetFiles(Directory, "*.exe" + IO.Path.DirectorySeparatorChar + "*.vb")

#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)