@Echo Off
 
PUSHD "%~1" && (
    Echo Directorio actual: "%CD%"
)
 
Pause
Exit /B 0

dim preciolibro as integer = Cint(ListBox2.SelectedItem)

    Private Shadows Sub Shown(sender As Object, e As EventArgs) _
    Handles MyBase.Shown
 
        Try
            Dim Url As New Uri(String.Empty)
 
        Catch ex As Exception
 
            Using ErrorDialog As New RadErrorDialog(ex, sender)
                ErrorDialog.ShowDialog()
            End Using
 
        End Try
 
    End Sub

Public Class Form1
 
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Catches Managed Exceptions.
        AddHandler AppDomain.CurrentDomain.FirstChanceException, AddressOf Application_ManagedException
 
        ' Catches Unhandled Exceptions.
        AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf Application_UnhandledException
 
        ' Catches Thread Exceptions.
        AddHandler Application.ThreadException, AddressOf Application_ThreadException
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'UnhandledException' event of the Application.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="UnhandledExceptionEventArgs"/> instance containing the event data.</param>
    Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
 
        Using ErrorDialog As New RadErrorDialog(DirectCast(e.ExceptionObject, Exception), Me)
            ErrorDialog.ShowDialog()
        End Using
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'FirstChanceException' event of the Application.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="Runtime.ExceptionServices.FirstChanceExceptionEventArgs" /> instance containing the event data.</param>
    Private Sub Application_ManagedException(ByVal sender As Object, ByVal e As Runtime.ExceptionServices.FirstChanceExceptionEventArgs)
 
        Using ErrorDialog As New RadErrorDialog(e.Exception, Me)
            ErrorDialog.ShowDialog()
        End Using
 
    End Sub
 
    ''' <summary>
    ''' Handles the 'ThreadException' event of the Application.
    ''' </summary>
    ''' <param name="sender">The source of the event.</param>
    ''' <param name="e">The <see cref="Threading.ThreadExceptionEventArgs"/> instance containing the event data.</param>
    Private Sub Application_ThreadException(sender As Object, e As Threading.ThreadExceptionEventArgs)
 
        Using ErrorDialog As New RadErrorDialog(e.Exception, Me)
            ErrorDialog.ShowDialog()
        End Using
 
    End Sub
 
End Class

        Combos.ForEach(Sub(comb As List(Of Integer))
 
                          ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
                          ListBox1.Items.Add(String.Join(", ",
                                                         From value As String In comb
                                                         Select If(value.Length = 1I,
                                                                   value.Insert(0I, "0"c),
                                                                   value)))
                          ListBox1.Sorted = True
 
 
 
                      End Sub)

        Combos.ForEach(Sub(comb As List(Of Integer))
 
                          ' Convierto la Lista a 'String', le añado los ceros, y añado el string formateado al Listbox.
                          ListBox1.Items.Add(String.Join(", ",
                                                         From value As String In comb
                                                         Select If(value.Length = 1I andalso not value.equals("0"),
                                                                   value.Insert(0I, "0"c),
                                                                   value)))
                          ListBox1.Sorted = True
 
 
 
                      End Sub)