// ListItem currentItem = ((DropDownList)sender).SelectedItem;
ListItem currentIndex = ((DropDownList)sender).SelectedIndex;
 
ViewState["idNombre"] = currentIndex;

Dim collection As IEnumerable(Of Integer) = Enumerable.Range(1, 99)

Dim parts As Integer = 4

Dim result As IEnumerable(Of IEnumerable(Of Integer)) =
    From index As Integer 
    In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / parts)))
    Select collection.Skip(index * parts).Take(parts)

@Echo OFF
 
Set "folderName=Nueva Carpeta"
 
For /F "Tokens=* Delims=" %%# in ('Dir /B /S /AD "*"') Do (
	Echo %%~#
	Echo    [+] %%~#\%folderName%
	Echo+
	(MKDir "%%~#\%folderName%")2>NUL
)
 
Pause&Exit /B 0

Me.TextBox1.MaxLength = Integer.MaxValue

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fic As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString & "diccionario.lst"
        Dim sr1 As New System.IO.StreamReader(fic)
        Dim texto As String
 
        TextBox3.Text = fic
        Label1.Text = ""
        texto = sr1.ReadToEnd()
        sr1.Close()
        TextBox1.Text = texto
 
    End Sub

    Private passFilepath As String = Path.Combine(Application.StartupPath, "diccionario.lst")
    Private passwordList As IEnumerable(Of String)
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.Load
 
        Me.LoadDefaults()
 
    End Sub
 
    Private Sub LoadDefaults()
 
        Me.Label1.ResetText()
        Me.tb_PassFilepath.Text = Me.passFilepath
 
        Try
            Me.passwordList = Me.GetPasswordList(Me.passFilepath)
 
        Catch ex As Exception
            Throw
 
        End Try
 
        With Me.tb_PasswordList
            .MaxLength = Integer.MaxValue
            .SuspendLayout()
            .Text = String.Join(ControlChars.NewLine, Me.passwordList)
            .ResumeLayout()
        End With
 
    End Sub
 
    ''' <summary>
    ''' Gets the password list.
    ''' </summary>
    ''' <param name="passFilepath">The passwords filepath.</param>
    ''' <returns>IEnumerable(Of System.String).</returns>
    Private Iterator Function GetPasswordList(ByVal passFilepath As String) As IEnumerable(Of String)
 
        Using sr As New StreamReader(passFilepath, Encoding.Default)
 
            Do Until sr.EndOfStream
                Yield sr.ReadLine
            Loop
 
        End Using
 
    End Function

Imports System.ComponentModel
Imports System.Data

    Public Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
 
        If File.Exists(tb_PassFilepath.Text) Then
            ' ...
            sText = Split(tb_PasswordList.Text, vbCrLf)
            textBox_pass.Text = sText(i)
            ' ...
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(URL), HttpWebRequest)
            ' ...
            If DirectCast(response, HttpWebResponse).StatusCode = HttpStatusCode.Redirect Then
                ' ...
            Else
                i += 1
                ' ...
                button1.PerformClick()
            End If
 
        Else
            ' ...
        End If
 
    End Sub
 

    Public Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles button1.Click
 
        Me.TestPasswordList(Me.passwordList)
 
    End Sub
 
    Private Sub TestPasswordList(ByVal passwordList As IEnumerable(Of String))
 
        Dim cookies As CookieContainer = Nothing
 
        For Each password As String In passwordList
 
            If Me.TestPassword(password, cookies) Then
                Me.ReportSuccessPassword(password)
                Exit Sub
            End If
 
        Next password
 
        Me.ReportFailedPassword()
 
    End Sub
 
    ''' <summary>
    ''' Tests the current password.
    ''' </summary>
    ''' <param name="password">The password.</param>
    ''' <param name="cookies">The byreferred cookie container.</param>
    ''' <returns><c>true</c> if password successful, <c>false</c> otherwise.</returns>
    Private Function TestPassword(ByVal password As String,
                                  ByRef cookies As CookieContainer) As Boolean
 
        ' tus llamadas a los métodos de las querys para testear el password actual, aquí.
        Me.SetCookies(cookies)
        Dim response As HttpWebResponse = Me.GetLoginResponse(cookies)
        ' etc...
 
        Return (response.StatusCode = HttpStatusCode.Redirect)
 
    End Function
 
    Private Sub SetCookies(ByRef cookies As CookieContainer)
 
        If cookies Is Nothing Then
            cookies = New CookieContainer
            ' tu query para setear el contenedor de cookies aquí.
        Else
            ' salgo, dando por hecho que la sesión de la cookie no haya expirado.
            Exit Sub
        End If
 
    End Sub
 
    Private Function GetLoginResponse(ByVal cookies As CookieContainer) As HttpWebResponse
 
        ' tu query POST de login aquí.
        Return DirectCast(response, HttpWebResponse)
 
    End Function
 
    Private Sub ReportSuccessPassword(ByVal password As String)
 
        MessageBox.Show(String.Format("Contraseña aceptada: ""{0}""", password), Me.Text,
                        MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    End Sub
 
    Private Sub ReportFailedPassword()
 
        MessageBox.Show("Ninguna contraseña aceptada.", Me.Text,
                        MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
    End Sub

Dim loginURL As String = "https://www.facebook.com/login.php?login_attempt=1"
request...
response...