Public Structure LabelTitle
        Shared Text As String = "VB.NET | Direcx Menu"
        Shared X As Integer = Menu_Gui.X + 5
        Shared Y As Integer = Menu_Gui.X + 3
        Shared FontColor As Color = Color.White
        Shared InfoNumber As Integer = 0
    End Structure
 
  Public Structure Label1
        Shared IsActive As Boolean = False
        Shared Text As String = "Hack 1"
        Shared X As Integer = Controls_Size.GUI.X - (Controls_Size.GUI.X - (CalculateSizePointX(Controls_Size.GUI.X) / 2)) 'Menu_Gui.X + 25
        Shared Y As Integer = 40 'Menu_Gui.Y + 45
        Shared FontColor As Color = OnSwishedColor
        Shared InfoNumber As Integer = 0
    End Structure

Imports System.Collections.Generic
Dim input As let = new List()
Dim 2, 3, 5, 7 As 1,
 
Dim output As let = new Array()
For i As let = 0 To input.length-1
 For j As let = 0 To input.length-1
 If input(i) <> input(j) AndAlso  input(i) < 5 Then
  output.push(input[i] * 10 + input[j])
 
  End if
 
  Next
 
  Next
 
console.log(output) '[12, 13, 15, 17, 21, 23, 25, 27, 31, 32, 35, 37]

  Dim input As Integer() = {1, 2, 3, 5, 7}
 
        Dim output As New List(Of Integer)
 
        For i As Integer = 0 To input.Length - 1
            For j As Integer = 0 To input.Length - 1
                If input(i) <> input(j) AndAlso input(i) < 5 Then
                    Dim result As Integer = (input(i) * 10 + input(j))
                    output.Add(result)
                End If
            Next j
        Next i

 'obtenemos ip
        Dim myClientMachineAddressList As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
        Dim myClientMachineIP = myClientMachineAddressList.AddressList.Where(Function(a) a.AddressFamily = AddressFamily.InterNetwork).ToArray
 
        'Eliminamos Duplicados y sobre-escribimos en la misma variable.
        myClientMachineIP = myClientMachineIP.Distinct(EqualityComparer(Of IPAddress).Default).ToArray
 
        'recorremos los duplicados 1 por 1 y los pamos a un textbox (como string) .
        For Each ipadress In myClientMachineIP
            TextBox2.Text = TextBox2.Text & vbNewLine & ipadress.ToString
        Next