Public Class Form1
 
    ''' <summary>
    ''' Tu array numérico.
    ''' </summary>
    Private IntArray As Integer() =
    {
        10I, 20I, 30I, 40I, 50I, 60I, 70I, 80I, 90I
    }
 
    Private Sub Button1_Click() Handles Button1.Click
 
        TextBox2.Text = String.Join("; ", RandomizeArray(IntArray))
        ' TextBox2.Text = String.Join(Nothing, RandomizeArray(arr))
 
    End Sub
 
    ' By Elektro
    '
    ''' <summary>
    ''' Randomizes the elements of the given Collection.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="Collection">Indicates the Collection to randomize.</param>
    ''' <returns>IEnumerable{``0}.</returns>
    Public Function RandomizeArray(Of T)(ByVal Collection As IEnumerable(Of T)) As IEnumerable(Of T)
 
        Dim Randomizer As New Random
        Return (From Item As T In Collection Order By Randomizer.Next).ToArray
 
    End Function
 
End Class

#Region " Imports "
 
Imports System.IO
Imports System.Runtime.InteropServices
Imports RefreshExplorer.NativeMethods
 
#End Region
 
''' <summary>
''' Initializes a new instance of Explorer process.
''' </summary>
Module RefreshExplorer
 
#Region " P/Invoke "
 
    ''' <summary>
    ''' Class NativeMethods.
    ''' </summary>
    Friend Class NativeMethods
 
        ''' <summary>
        ''' Retrieves a handle to the top-level window whose class name and window name match the specified strings. 
        ''' This function does not search child windows. 
        ''' This function does not perform a case-sensitive search.
        ''' </summary>
        ''' <param name="lpClassName">
        ''' The class name or a class atom created by a previous call to the 
        ''' RegisterClass or RegisterClassEx function.
        ''' The atom must be in the low-order word of lpClassName; 
        ''' the high-order word must be zero.
        ''' If lpClassName points to a string, it specifies the window class name. 
        ''' The class name can be any name registered with RegisterClass or RegisterClassEx, 
        ''' or any of the predefined control-class names.
        ''' If lpClassName is NULL, it finds any window whose title matches the lpWindowName parameter.
        ''' </param>
        ''' <param name="zero">
        ''' The window name (the window's title). 
        ''' If this parameter is NULL, all window names match.</param>
        ''' <returns>IntPtr.</returns>
        <DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Unicode)>
        Public Shared Function FindWindowByClass(
            ByVal lpClassName As String,
            ByVal zero As IntPtr
        ) As IntPtr
        End Function
 
    End Class
 
#End Region
 
#Region " ReadOnly Strings "
 
    ''' <summary>
    ''' Indicates the directory where the Explorer process is located.
    ''' </summary>
    Private ReadOnly ExplorerDirectory As String =
        Environment.GetFolderPath(Environment.SpecialFolder.Windows)
 
    ''' <summary>
    ''' Indicates the filename of the process.
    ''' </summary>
    Private ReadOnly ExplorerFilename As String = "Explorer.exe"
 
    ''' <summary>
    ''' Indicates the desk Taskbar Class-name.
    ''' </summary>
    Private ReadOnly TaskBarClassName As String = "Shell_TrayWnd"
 
#End Region
 
#Region " Process "
 
    ''' <summary>
    ''' The explorer process.
    ''' </summary>
    Dim Explorer As New Process With
    {
     .StartInfo = New ProcessStartInfo With
                  {
                   .FileName = Path.Combine(ExplorerDirectory, ExplorerFilename),
                   .WorkingDirectory = My.Application.Info.DirectoryPath,
                   .UseShellExecute = True
                  }
    }
 
#End Region
 
#Region " Main "
 
    ''' <summary>
    ''' Defines the entry point of the application.
    ''' </summary>
    Sub Main()
 
        Select Case Convert.ToBoolean(CInt(FindWindowByClass(TaskBarClassName, Nothing)))
 
            Case False ' The Taskbar is not found.
 
                Try
                    Explorer.Start()
                    Console.WriteLine("Windows Explorer has been re-initialized successfully")
                    Environment.Exit(0)
 
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                    Debug.WriteLine(ex.Message)
                    Environment.Exit(1)
 
                End Try
 
            Case True ' The Taskbar is found.
                Console.WriteLine("Can't proceed, Windows Explorer is currently running. Exiting...")
                Environment.Exit(2)
 
        End Select
 
    End Sub
 
#End Region
 
End Module

' El Objeto 'FileSystemObject'.
Set FSO        = CreateObject("Scripting.FileSystemObject") 
 
Directory      = ".\"             ' El directorio donde guardas los archivos.
FileExt        = "xml"            ' La extensión de los archivos a escanear.
LineToScan     = 7                ' La linea para identificar el archivo.
TextToMatch    = "Something"      ' El texto que buscar en la linea a examinar.
LineToReplace  = 22               ' El número de la linea a reemplazar.
TextToReplace  = "<New Password>" ' El nuevo texto de la linea a reemplazar.
 
' Recorro los archivos del directorio 'Directory'.
For Each File In FSO.GetFolder(Directory).Files
 
	' Si la extensión del archivo es igual que 'FileExt'...
	If LCase(FSO.GetExtensionName(File)) = LCase(FileExt) Then
 
		' Creo un Array con el contenido del archivo (las lineas de texto).
		Lines = Split(FSO.OpenTextFile(File, 1).ReadAll(), vbcrlf)
 
		' Si la cantidad de elementos del Array (lineas) es igual o mayor que 'LineToReplace';
		' y si además el texto de la linea 'LineToScan' es igual a 'TextToMatch'...
		If (uBound(Lines) => (LineToReplace -1)) And _
		   (LCase(Lines(LineToScan - 1)) = LCase(TextToMatch)) Then
 
			' Reemplazo la linea 'LineToReplace' por el texto 'TextToReplace'.
			Lines(LineToReplace -1) = TextToReplace
 
			' Reemplazo el archivo original, con los cambios realizados.
			FSO.CreateTextFile(File, 2).Write(Join(Lines, vbcrlf))
 
			'' ...O Creo un nuevo documento en la misma carpeta del archivo original, con los cambios realizados.
			' FSO.CreateTextFile(FSO.GetBaseName(File) & ".tmp", 2).Write(Join(Lines, vbcrlf))
 
			' Detengo la iteración de los elementos, salgo del búcle.
			Exit For ' // Each File In FSO.GetFolder(Directory).Files
 
		End If ' // (uBound(Lines) => (LineToReplace -1)) And (LCase(Lines(LineToScan - 1)) = LCase(TextToMatch))
 
	End If ' // LCase(FSO.GetExtensionName(File)) = LCase(FileExt)
 
Next ' // File
 
Wscript.Quit(0) ' Salisa exitosa: '0'
 

print("Hello World")

objcdo.subject = "TextRandom(n)"

objcdo.subject = """" & TextRandom(n) & """"

objcdo.subject = """" & "Texto Normal" & """" 

objcdo.subject = chr(34) & TextRandom(n) & chr(34)

objcdo.subject = chr(34) & "Texto Normal" & chr(34) 

objcdo.subject = TextRandom(n)