Panel_X
Button_X

Public Class Form1
 
    Dim Selected_TAB As Integer ' El número del botón clickado
    Dim Margin_TAB As Integer = 30 ' el margen de espacio que le quiero dar a los botones
    Dim Element_Size_Y As Integer ' la altura del panel
 
    Private Sub sub_btn_sel(sender As Object, e As EventArgs) Handles Button_1.Click, Button_2.Click, Button_3.Click, Button_4.Click
 
        Selected_TAB = sender.name.split("_")(1)  ' El número del botón clickado
        Dim Temp_Margin_TAB As Integer = Margin_TAB
 
        ' Estas son las dimensiones de altura de cada panel que quiero expandir/contraer
        Select Case Selected_TAB
            Case 1
                Element_Size_Y = 25
            Case 2
                Element_Size_Y = 50
            Case 3
                Element_Size_Y = 80
            Case 4
                Element_Size_Y = 155
            Case Else
        End Select
 
        For Each Control In Panela.Controls
            If Control.GetType.ToString.Contains("Button") Then
                Dim Botoncito As Button = CType(Control, Button)
                If Not Botoncito.Name = "Button_" & Selected_TAB Then
                    Margin_TAB += Temp_Margin_TAB
                    Botoncito.Location = New Point(Botoncito.Location.X, Element_Size_Y + Margin_TAB)
                End If
            End If
        Next
 
        For Each Control In Panela.Controls
            If Control.GetType.ToString.Contains("Panel") Then
                Dim Panelito As Panel = CType(Control, Panel)
                If Not Panelito.Name = "Panel_" & Selected_TAB Then
                    Panelito.Visible = False
                Else
                    Panelito.Visible = True
                    Panelito.Size = New Size(Panelito.Width, Element_Size_Y)
                    Panelito.Location = New Point(Panelito.Location.X, Temp_Margin_TAB)
                End If
            End If
        Next
    End Sub
 
End Class

#Region " Folder Access Function "
 
    ' [ Folder Access Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_Folder_Access("C:\Folder", Folder_Access.Create + Folder_Access.Write, Action.Allow)
    ' Set_Folder_Access("C:\Folder", Folder_Access.Delete, Action.Deny)
 
    Public Enum Folder_Access
        Create = System.Security.AccessControl.FileSystemRights.CreateDirectories + System.Security.AccessControl.FileSystemRights.CreateFiles
        Delete = System.Security.AccessControl.FileSystemRights.Delete + System.Security.AccessControl.FileSystemRights.DeleteSubdirectoriesAndFiles
        Write = System.Security.AccessControl.FileSystemRights.AppendData + System.Security.AccessControl.FileSystemRights.Write + Security.AccessControl.FileSystemRights.WriteAttributes + System.Security.AccessControl.FileSystemRights.WriteData + System.Security.AccessControl.FileSystemRights.WriteExtendedAttributes
    End Enum
 
    Public Enum Action
        Allow = 0
        Deny = 1
    End Enum
 
    Private Function Set_Folder_Access(ByVal Path As String, ByVal Folder_Access As Folder_Access, ByVal Action As Action) As Boolean
        Try
            Dim Folder_Info As IO.DirectoryInfo = New IO.DirectoryInfo(Path)
            Dim Folder_ACL As New System.Security.AccessControl.DirectorySecurity
            Folder_ACL.AddAccessRule(New System.Security.AccessControl.FileSystemAccessRule(My.User.Name, Folder_Access, System.Security.AccessControl.InheritanceFlags.ContainerInherit Or System.Security.AccessControl.InheritanceFlags.ObjectInherit, System.Security.AccessControl.PropagationFlags.None, Action))
            Folder_Info.SetAccessControl(Folder_ACL)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            ' Return False
        End Try
 
#End Region

• Error de límite máximo de 300 MB al usar el formato ISO corregido (Método: La aplicación añade automáticamente una clave de registro para registrar la utilidad PowerISO)
• Mejoras visuales en la barra de taréas de Windows 7 (Información del progreso).
• Protección temporal contra escritura/borrado/modificación de archivos de la carpeta de origen mientras esta se está procesando (SPLIT).
• Monitorización de cambios de la carpeta de origen para actualizar la información que muestra la aplicación antes de hacer el SPLIT.
• He unificado las estructuras en el mismo source, la aplicación ahora usa los recursos (.exe) de la arquitectura del SO (x64/x86).
• Corregida una errata de sintaxis (if variable = valor = valor), joder, no sé como no lo ví antes, pero estaba funcionando bien xD.
  
• Corregido el error de ventanas indeseadas (MessageBoxes) en la barrá de taréas.
• Otros pequeños cambios sin importancia.

MessageBox.Show(My.Resources.ResourceManager.GetObject(Language_Resource & "09"), My.Settings.Version, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)

#Region " Hex to Byte-Array Function "
 
    ' [ Hex to Byte-Array Function ]
    '
    ' Examples :
    ' Dim Byte_Array = Hex_to_Byte_Array("000a42494c4c2047415445535ad50adc4f5ca6f9efc1252aadf9847f")
    ' My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\KEYNAME", "VALUENAME", Byte_Array, Microsoft.Win32.RegistryValueKind.Binary)
 
    Private Function Hex_to_Byte_Array(ByVal HEX_String As String) As Byte()
        Dim Bytes_Array((HEX_String.Length \ 2) - 1) As Byte
        For i As Integer = 0 To HEX_String.Length - 1 Step 2
            Dim HEX_Byte As String = HEX_String.Substring(i, 2)
            Dim Byte_Value As Byte = Byte.Parse(HEX_Byte, Globalization.NumberStyles.AllowHexSpecifier)
            Bytes_Array(i \ 2) = Byte_Value
        Next
        Return Bytes_Array
    End Function
 
#End Region

#Region " Set TaskBar Status Function "
 
    ' [ Set TaskBar Status Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_TaskBar_Status(TaskBar_Status.Paused)
 
    Public Enum TaskBar_Status
        Normal = 2     ' Blue
        Stopped = 4    ' Red
        Paused = 8     ' Yellow
        Disabled = 0   ' No colour
        Undefinied = 1 ' Marquee
    End Enum
 
    Private Function Set_TaskBar_Status(ByVal TaskBar_Status As TaskBar_Status) As Boolean
        Try : Microsoft.WindowsAPICodePack.Taskbar.TaskbarManager.Instance.SetProgressState(TaskBar_Status)
            Return True
        Catch ex As Exception : Throw New Exception(ex.Message)
        End Try
    End Function
 
#End Region

#Region " Set TaskBar Value Function "
 
    ' [ Set TaskBar Value Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Set_TaskBar_Value(50, 100)
 
    Private Function Set_TaskBar_Value(ByVal Current_Value As Integer, ByVal MAX_Value As Integer) As Boolean
        Try : Microsoft.WindowsAPICodePack.Taskbar.TaskbarManager.Instance.SetProgressValue(Current_Value, MAX_Value)
            Return True
        Catch ex As Exception : Throw New Exception(ex.Message)
        End Try
    End Function
 
#End Region