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

Public Class Form1
    Private Sub BtnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalir.Click
        Application.Exit()
    End Sub
 
    Private Sub BtnTexto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTexto.Click
        My.Computer.FileSystem.WriteAllText(Environment.CurrentDirectory & "\" & Me.TxtNombre.Text & ".TXT", Me.TxtTexto.Text, False)
    End Sub
End Class

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Form2.Parent = Me
        Catch ex As Exception
            MsgBox(ex.Message)
            ' Error: top-level control cannot be added to a control
        End Try
    End Sub