FileSystem.SetAttr("Archivo", IO.FileAttributes.System + IO.FileAttributes.Hidden)

    ' Usage:
    ' Attrib("File.txt", IO.FileAttributes.ReadOnly + IO.FileAttributes.System)
 
    Private Function Attrib(ByVal File As String, ByVal Attributes As System.IO.FileAttributes)
        Try
            FileSystem.SetAttr(File, Attributes)
            Return True
        Catch
            Return Nothing
        End Try
    End Function

@Echo OFF
 
:: By Elektro H@cker
 
Set "TempFile=%SystemDrive%\FileCount.tmp"
 
If NOT Exist "%TempFile%" (fsutil file createnew "%TempFile%" 0 1>NUL)
 
For /F "usebackq" %%X in ("%TempFile%") Do (Set /A Last_Total_Files=%%X)
 
FOR %%@ IN (*.*) DO (Set /A TotalFiles+=1)
 
If NOT defined Last_Total_Files (Set /A Last_Total_Files=0)
 
Set /A NewFiles=TotalFiles-Last_Total_Files
 
<Nul Set /P Total=%TotalFiles% >"%TempFile%"
 
Echo Archivos antes: %Last_Total_Files%
Echo Archivos ahora: %TotalFiles%
Echo Nuevos archivos: %NewFiles%
 
Pause&Exit

For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
            If TypeOf (Dict.Value) Is String Then
                Find_Delimited_Text(My.Resources.ResourceManager.GetObject(Dict.Key), ";", TextBox_Buscar.Text)

    Public Sub Find_Delimited_Text(ByVal TextFile As String, ByVal TextDelimiter As String, ByVal PatternSTR As String)
 
        Dim vLetras As String = PatternSTR
        Dim vSize As Integer = PatternSTR.Length  ' ¿?
 
        Dim vLista As IEnumerable(Of String) = vLetras.Select(Function(x) x.ToString())
 
        For i As Integer = 0 To vSize - 2
            vLista = vLista.SelectMany(Function(x) vLetras, Function(x, y) x + y)
        Next
 
        For Each t As String In vLista
            MsgBox(t)
        Next
 
        Dim Listview_Row_STR(4) As String
        Dim Listview_Item = New ListViewItem(Listview_Row_STR)
        Dim TextDelimited As String()
        Dim delimiter As String = TextDelimiter
        Dim fileContent As String = TextFile
 
        Dim stringStream As New System.IO.StringReader(fileContent)
        Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser(stringStream)
            parser.SetDelimiters(TextDelimiter)
            While Not parser.EndOfData
                TextDelimited = parser.ReadFields()
                If TextDelimited(0).Contains(PatternSTR) Then
                    field_find_number += 1
                    Listview_Row_STR(0) = field_find_number
                    Listview_Row_STR(1) = TextDelimited(0)
                    Listview_Row_STR(2) = TextDelimited(1)
                    Listview_Row_STR(3) = TextDelimited(2)
                    Listview_Item = New ListViewItem(Listview_Row_STR)
                    ListView.Items.Add(Listview_Item)
                End If
            End While
        End Using
    End Sub

 If TextDelimited(0).ToLower.Contains(PatternSTR.ToLower) Then

Dim STR = "abc"
If Cosa.Contains(STR) Then ...
 
' Quiero que busque todas las variantes:
' Abc
' ABc
' ABC
' aBC
' abC
' etc...

Dim ResourceSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
            For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
                If TypeOf (Dict.Value) Is Drawing.Image Then
                    Debug.WriteLine(Dict.Key) 'outputting resource name
                End If
            Next

@echo off
Title Configuración de IP
 
:: By Elektro H@cker
 
:Menu
Echo Configuraci¢n de IP:       
Echo -------------------        | MORE
Echo: 1 ^> Segmento [192.168.1.X]
Echo: 2 ^> Segmento [192.168.2.X]
Echo: 3 ^> Segmento [192.168.3.X]
Echo: 4 ^> Segmento [192.168.4.X]
Echo: 5 ^> Salir
Echo.                           | MORE
 
choice /C 12345 /M "elige una opci¢n"
 
For %%# in (%ERRORLEVEL%) DO (
	If %%# EQU 1 (Set "Segmento=192.168.1.")
	If %%# EQU 2 (Set "Segmento=192.168.2.")
	If %%# EQU 3 (Set "Segmento=192.168.3.")
	If %%# EQU 4 (Set "Segmento=192.168.4.")
	If %%# EQU 5 (Exit /B 0)
	Call :Set_Digitos
	Call :Set_IP
)
GOTO :MENU
 
:Set_Digitos
CLS
Echo Segmento elegijo [%Segmento%XXX] | MORE
Set /P "Ultimo=Escriba el ultimo bloque de digitos >>"
If "%Ultimo%" EQU "" (GOTO :Set_Digitos)
Echo "%Ultimo%"|Findstr "^\"[0-9]*\"$" && GOTO:EOF || (GOTO :Set_Digitos)
 
:Set_IP
Echo Configurando IP [%Segmento%%ultimo%] | MORE
netsh interface ip set address name="Conexi¢n de  rea local" static %Segmento%%ultimo% 255.255.255.0 %Segmento%1
netsh interface ip set dns name="Conexi¢n de  rea local" static 8.8.8.8
netsh interface ip add dns name="Conexi¢n de  rea local" 8.8.4.4 index=2
GOTO:EOF

 vColumnaOrden
    vOrden

  Private Sub GListView_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles GListView.ColumnClick
 
        Dim vIndiceColumna As ColumnHeader = GListView.Columns(e.Column)
 
        Dim vTipoOrden As System.Windows.Forms.SortOrder
 
        If vColumnaOrden Is Nothing Then
            vTipoOrden = SortOrder.Ascending
            vOrden = SortOrder.Ascending
        Else
            If vIndiceColumna.Equals(vColumnaOrden) Then
                If vOrden = SortOrder.Ascending Then
                    vTipoOrden = SortOrder.Descending
                    vOrden = SortOrder.Descending
                Else
                    vTipoOrden = SortOrder.Ascending
                    vOrden = SortOrder.Ascending
                End If
            Else
                vTipoOrden = SortOrder.Ascending
                vOrden = SortOrder.Ascending
            End If
        End If
 
        vColumnaOrden = vIndiceColumna
 
        GListView.ListViewItemSorter = New COrdenarListview(e.Column, vTipoOrden)
        GListView.Sort()
    End Sub

 
' En las declaraciones...
Dim ColumnOrder As String = "Down"
 
 
Private Sub GListView_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles GListView.ColumnClick
        If ColumnOrder = "Down" Then
            Me.GListView.ListViewItemSorter = New COrdenarListview(e.Column, SortOrder.Ascending)
            GListView.Sort()
            ColumnOrder = "Up"
        ElseIf ColumnOrder = "Up" Then
            Me.GListView.ListViewItemSorter = New COrdenarListview(e.Column, SortOrder.Descending)
            GListView.Sort()
            ColumnOrder = "Down"
        End If
    End Sub

    Private Sub OnMouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover
        Form2.Show()
    End Sub
 
    Private Sub OnMouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave
        ' Hay que liberarlo, con un form2.close o form2.hide solo conseguiremos que se centre la primera vez!
        Form2.Dispose()
    End Sub
 
#Region " CenterForm function "
 
    Function centerForm(ByVal Form_to_Center As Form, ByVal Form_Location As Point) As Point
        Dim pLocation As New Point
        pLocation.X = (Me.Left + (Me.Width - Form_to_Center.Width) / 2) '// set the X coordinates.
        pLocation.Y = (Me.Top + (Me.Height - Form_to_Center.Height) / 2) '// set the Y coordinates.
        Return pLocation '// return the Location to the Form it was called from.
    End Function
 
#End Region

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Location = Form1.centerForm(Me, Me.Location)
    End Sub
 

   Private Sub SearchInResources(ByVal PatternSTR As String)
        For Each ResourceFile In My.Resources ' Esto no funciona cláramente xD
            If ResourceFile.EndsWith(".txt") Then
                Dim fileContent As String = ResourceFile
                Dim stringStream As New System.IO.StringReader(fileContent)
                If stringStream.contains(PatternSTR) Then
                    ' Cosas...
                End If
            End If
        Next
    End Sub