Something

Public Class frmMain

    Dim sLocaleStrings(10) As String
    Dim txtInput(10) As System.Windows.Forms.TextBox
    Dim csDepartements As Collection
    Dim csMunicipalities As Collection
    Dim sDepartements(100) As String
    Dim sMunicipalities(300) As String

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Dim iLoop As Integer

        sLocaleStrings(0) = "First Name"
        sLocaleStrings(1) = "Last Name"
        sLocaleStrings(2) = "Address #"
        sLocaleStrings(3) = "Road Name"
        sLocaleStrings(4) = "Municipality"
        sLocaleStrings(5) = "Postcode"
        sLocaleStrings(6) = "Depatement"
        sLocaleStrings(7) = "Telephone"
        sLocaleStrings(8) = "Hours Left"
        sLocaleStrings(9) = "Subscription Expiration"

        PopulateCollections()

        'csMunicipalities.Add("test")

        picFace.Top = 0

        'txtInput(0) = New System.Windows.Forms.TextBox
        'txtInput(0).Top = txtInput(0).Height * iLoop
        'txtInput(0).Text = sLocaleStrings(0)
        'Me.Controls.Add(txtInput(0))

        'AddHandler txtInput(0).Click, AddressOf txtInput_validate
        For iLoop = 0 To 9
            txtInput(iLoop) = New System.Windows.Forms.TextBox
            AddHandler txtInput(iLoop).Click, AddressOf txtInput_validate
            txtInput(iLoop).Top = txtInput(iLoop).Height * iLoop
            txtInput(iLoop).Text = sLocaleStrings(iLoop)
            Me.Controls.Add(txtInput(iLoop))
        Next

        'picFace.Image = freeImage.fromFile(System.AppDomain.CurrentDomain.BaseDirectory() & "noimage.jpg").toBitmap


    End Sub

    Private Sub txtInput_validate(ByVal sender As Object, ByVal e As System.EventArgs)

        'MsgBox("hi")

    End Sub



    Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize

        Dim iLoop As Integer

        picFace.Height = Me.ClientSize.Height / 2.5
        picCard.Height = Me.ClientSize.Height / 2.5
        picFace.Width = picFace.Height * (4 / 3)
        picCard.Width = picCard.Height * (5 / 3)
        picFace.Left = Me.ClientSize.Width - picFace.Width
        picCard.Left = Me.ClientSize.Width - picCard.Width
        picCard.Top = Me.ClientSize.Height - picCard.Height
        txtInput(0).Width = 500
        For iLoop = 0 To 9
            'txtInput(iLoop).Width = Me.ClientSize.Width - picCard.Width
        Next
    End Sub

    Sub AddString(ByRef StringArray() As String, ByVal NewString As String)

        ReDim Preserve StringArray(StringArray.GetUpperBound(0) + 1)
        StringArray(StringArray.GetUpperBound(0)) = NewString

    End Sub
    Sub PopulateCollections()

        AddString(sDepartements, "Ahuachapán")
        'sDepartements.
        'csDepartements.Add("Cabañas")
        'csDepartements.Add("Chalatenango")
        'csDepartements.Add("Cuscatlán")
        'csDepartements.Add("La Libertad")
        'csDepartements.Add("La Paz")
        'csDepartements.Add("La Unión")
        'csDepartements.Add("Morazán")
        'csDepartements.Add("San Miguel")
        'csDepartements.Add("San Salvador")
        'csDepartements.Add("San Vicente")
        'csDepartements.Add("Santa Ana")
        'csDepartements.Add("Sonsonate")
        'csDepartements.Add("Usulután")

        ''Ahuachapán Department

        'csMunicipalities.Add("Ahuachapán")
        'csMunicipalities.Add("Apaneca")
        'csMunicipalities.Add("Atiquizaya")
        'csMunicipalities.Add("Concepción de Ataco")
        'csMunicipalities.Add("El Refugio")
        'csMunicipalities.Add("Guaymango")
        'csMunicipalities.Add("Jujutla")
        'csMunicipalities.Add("San Francisco Menéndez")
        'csMunicipalities.Add("San Lorenzo")
        'csMunicipalities.Add("San Pedro Puxtla")
        'csMunicipalities.Add("Tacuba")
        'csMunicipalities.Add("Turín")

        ''Cabañas Department

        'csMunicipalities.Add("Cinquera")
        'csMunicipalities.Add("Dolores")
        'csMunicipalities.Add("Guacotecti")
        'csMunicipalities.Add("Ilobasco")
        'csMunicipalities.Add("Jutiapa")
        'csMunicipalities.Add("San Isidro")
        'csMunicipalities.Add("Sensuntepeque")
        'csMunicipalities.Add("Tejutepeque")
        'csMunicipalities.Add("Victoria")

        ''Chalatenango Department

        'csMunicipalities.Add("Agua Caliente")
        'csMunicipalities.Add("Arcatao")
        'csMunicipalities.Add("Azacualpa")
        'csMunicipalities.Add("Cancasque")
        'csMunicipalities.Add("Chalatenango")
        'csMunicipalities.Add("Citalá")
        'csMunicipalities.Add("Comalapa")
        'csMunicipalities.Add("Concepción Quezaltepeque")
        'csMunicipalities.Add("Dulce Nombre de Maria")
        'csMunicipalities.Add("El Carrizal")
        'csMunicipalities.Add("El Paraiso")
        'csMunicipalities.Add("La Laguna")
        'csMunicipalities.Add("La Palma")
        'csMunicipalities.Add("La Reina")
        'csMunicipalities.Add("Lake")
        'csMunicipalities.Add("Las Flores")
        'csMunicipalities.Add("Las Vueltas")
        'csMunicipalities.Add("Nombre de Jesús")
        'csMunicipalities.Add("Nueva Concepción")
        'csMunicipalities.Add("Nueva Trinidad")
        'csMunicipalities.Add("Ojos de Agua")
        'csMunicipalities.Add("Potonico")
        'csMunicipalities.Add("San Antonio La Cruz")
        'csMunicipalities.Add("San Antonio Ranchos")
        'csMunicipalities.Add("San Fernando")
        'csMunicipalities.Add("San Francisco Lempa")
        'csMunicipalities.Add("San Francisco Morazán")
        'csMunicipalities.Add("San Ignacio")
        'csMunicipalities.Add("San Isidro Labrador")
        'csMunicipalities.Add("San Luis del Carmen")
        'csMunicipalities.Add("San Miguel de Mercedes")
        'csMunicipalities.Add("San Rafael")
        'csMunicipalities.Add("Santa Rita")
        'csMunicipalities.Add("Tejutla")

        ''Cuscatlán Department

        'csMunicipalities.Add("Candelaria")
        'csMunicipalities.Add("Cojutepeque")
        'csMunicipalities.Add("El Carmen")
        'csMunicipalities.Add("El Rosario")
        'csMunicipalities.Add("Monte San Juan")
        'csMunicipalities.Add("Oratorio de Concepción")
        'csMunicipalities.Add("San Bartolomé Perulapía")
        'csMunicipalities.Add("San Cristóbal")
        'csMunicipalities.Add("San José Guayabal")
        'csMunicipalities.Add("San Pedro Perulapán")
        'csMunicipalities.Add("San Rafael Cedros")
        'csMunicipalities.Add("San Ramón")
        'csMunicipalities.Add("Santa Cruz Analquito")
        'csMunicipalities.Add("Santa Cruz Michapa")
        'csMunicipalities.Add("Suchitoto")
        'csMunicipalities.Add("Tenancingo")

        ''La Libertad Department

        'csMunicipalities.Add("Antiguo Cuscatlán")
        'csMunicipalities.Add("Chiltiupán")
        'csMunicipalities.Add("Ciudad Arce")
        'csMunicipalities.Add("Colón")
        'csMunicipalities.Add("Comasagua")
        'csMunicipalities.Add("Huizúcar")
        'csMunicipalities.Add("Jayaque")
        'csMunicipalities.Add("Jicalapa")
        'csMunicipalities.Add("La Libertad")
        'csMunicipalities.Add("Nuevo Cuscatlán")
        'csMunicipalities.Add("Opico")
        'csMunicipalities.Add("Quezaltepeque")
        'csMunicipalities.Add("Sacacoyo")
        'csMunicipalities.Add("San José Villanueva")
        'csMunicipalities.Add("San Matías")
        'csMunicipalities.Add("San Pablo Tacachico")
        'csMunicipalities.Add("Santa Tecla")
        'csMunicipalities.Add("Talnique")
        'csMunicipalities.Add("Tamanique")
        'csMunicipalities.Add("Teotepeque")
        'csMunicipalities.Add("Tepecoyo")
        'csMunicipalities.Add("Zaragoza")

        ''La Paz Department

        'csMunicipalities.Add("Cuyultitán")
        'csMunicipalities.Add("El Rosario")
        'csMunicipalities.Add("Jerusalén")
        'csMunicipalities.Add("Mercedes La Ceiba")
        'csMunicipalities.Add("Olocuilta")
        'csMunicipalities.Add("Paraíso de Osorio")
        'csMunicipalities.Add("San Antonio Masahuat")
        'csMunicipalities.Add("San Emigdio")
        'csMunicipalities.Add("San Francisco Chinameca")
        'csMunicipalities.Add("San Juan Monualco")
        'csMunicipalities.Add("San Juan Talpa")
        'csMunicipalities.Add("San Juan Tepezontes")
        'csMunicipalities.Add("San Luis")
        'csMunicipalities.Add("San Luis La Herradura")
        'csMunicipalities.Add("San Miguel Tepezontes")
        'csMunicipalities.Add("San Pedro Masahuat")
        'csMunicipalities.Add("San Pedro Nonualco")
        'csMunicipalities.Add("San Rafael Obrajuelo")
        'csMunicipalities.Add("Santa María Ostuma")
        'csMunicipalities.Add("Santiago Nonualco")
        'csMunicipalities.Add("Tapalhuaca")
        'csMunicipalities.Add("Zacatecoluca")

        ''La Unión Department

        'csMunicipalities.Add("Anamoros")
        'csMunicipalities.Add("Bolivar")
        'csMunicipalities.Add("Concepcion de Oriente")
        'csMunicipalities.Add("Conchagua")
        'csMunicipalities.Add("El Carmen")
        'csMunicipalities.Add("El Sauce")
        'csMunicipalities.Add("Intipuca")
        'csMunicipalities.Add("La Union")
        'csMunicipalities.Add("Lislique")
        'csMunicipalities.Add("Meanguera del Golfo")
        'csMunicipalities.Add("Nueva Esparta")
        'csMunicipalities.Add("Pasaquina")
        'csMunicipalities.Add("Poloros")
        'csMunicipalities.Add("San Alejo")
        'csMunicipalities.Add("San Jose")
        'csMunicipalities.Add("Santa Rosa de Lima")
        'csMunicipalities.Add("Yayantique")
        'csMunicipalities.Add("Yucuaiquin")

        ''Morazán Department

        'csMunicipalities.Add("Arambala")
        'csMunicipalities.Add("Cacaopera")
        'csMunicipalities.Add("Chilanga")
        'csMunicipalities.Add("Corinto")
        'csMunicipalities.Add("Delicias de Concepción")
        'csMunicipalities.Add("El Divisadero")
        'csMunicipalities.Add("El Rosario")
        'csMunicipalities.Add("Gualococti")
        'csMunicipalities.Add("Guatajiagua")
        'csMunicipalities.Add("Joateca")
        'csMunicipalities.Add("Jocoaitique")
        'csMunicipalities.Add("Jocoro")
        'csMunicipalities.Add("Lolotiquillo")
        'csMunicipalities.Add("Meanguera")
        'csMunicipalities.Add("Osicala")
        'csMunicipalities.Add("Perquín")
        'csMunicipalities.Add("San Carlos")
        'csMunicipalities.Add("San Fernando")
        'csMunicipalities.Add("San Francisco Gotera")
        'csMunicipalities.Add("San Isidro")
        'csMunicipalities.Add("San Simón")
        'csMunicipalities.Add("Sensembra")
        'csMunicipalities.Add("Sociedad")
        'csMunicipalities.Add("Torola")
        'csMunicipalities.Add("Yamabal")
        'csMunicipalities.Add("Yoloaiquín")

        ''San Miguel Department

        'csMunicipalities.Add("Carolina")
        'csMunicipalities.Add("Chapeltique")
        'csMunicipalities.Add("Chinameca")
        'csMunicipalities.Add("Chirilagua")
        'csMunicipalities.Add("Ciudad Barrios")
        'csMunicipalities.Add("Comacarán")
        'csMunicipalities.Add("El Tránsito")
        'csMunicipalities.Add("Lolotique")
        'csMunicipalities.Add("Moncagua")
        'csMunicipalities.Add("Nueva Guadalupe")
        'csMunicipalities.Add("Nuevo Edén de San Juan")
        'csMunicipalities.Add("Olomega Laguna")
        'csMunicipalities.Add("Quelepa")
        'csMunicipalities.Add("San Antonio")
        'csMunicipalities.Add("San Gerardo")
        'csMunicipalities.Add("San Jorge")
        'csMunicipalities.Add("San Luis de la Reina")
        'csMunicipalities.Add("San Miguel")
        'csMunicipalities.Add("San Rafael Oriente")
        'csMunicipalities.Add("Sesori")
        'csMunicipalities.Add("Uluazapa")

        ''San Salvador Department

        'csMunicipalities.Add("Aguilares")
        'csMunicipalities.Add("Apopa")
        'csMunicipalities.Add("Ayutuxtepeque")
        'csMunicipalities.Add("Cuscatancingo")
        'csMunicipalities.Add("Delgado")
        'csMunicipalities.Add("El Paisnal")
        'csMunicipalities.Add("Guazapa")
        'csMunicipalities.Add("Ilopango")
        'csMunicipalities.Add("Lake Ilopango")
        'csMunicipalities.Add("Mejicanos")
        'csMunicipalities.Add("Nejapa")
        'csMunicipalities.Add("Panchimalco")
        'csMunicipalities.Add("Rosario de Mora")
        'csMunicipalities.Add("San Marcos")
        'csMunicipalities.Add("San Martín")
        'csMunicipalities.Add("San Salvador")
        'csMunicipalities.Add("Santiago Texacuangos")
        'csMunicipalities.Add("Santo Tomás")
        'csMunicipalities.Add("Soyapango")
        'csMunicipalities.Add("Tonacatepeque")

        ''San Vicente Department

        'csMunicipalities.Add("Apastepeque")
        'csMunicipalities.Add("Guadalupe")
        'csMunicipalities.Add("San Cayetano Istepeque")
        'csMunicipalities.Add("San Esteban Catarina")
        'csMunicipalities.Add("San Ildefonso")
        'csMunicipalities.Add("San Lorenzo")
        'csMunicipalities.Add("San Sebastián")
        'csMunicipalities.Add("San Vicente")
        'csMunicipalities.Add("Santa Clara")
        'csMunicipalities.Add("Santo Domingo")
        'csMunicipalities.Add("Tecoluca")
        'csMunicipalities.Add("Tepetitán")
        'csMunicipalities.Add("Verapaz")

        ''Santa Ana Department

        'csMunicipalities.Add("Candelaria de la Frontera")
        'csMunicipalities.Add("Chalchuapa")
        'csMunicipalities.Add("Coatepeque")
        'csMunicipalities.Add("El Congo")
        'csMunicipalities.Add("El Porvenir")
        'csMunicipalities.Add("Lake Coatepeque")
        'csMunicipalities.Add("Lake Guija")
        'csMunicipalities.Add("Masahuat")
        'csMunicipalities.Add("Metapán")
        'csMunicipalities.Add("San Antonio Pajonal")
        'csMunicipalities.Add("San Sebastián Salitrillo")
        'csMunicipalities.Add("Santa Ana")
        'csMunicipalities.Add("Santa Rosa Guachipilín")
        'csMunicipalities.Add("Santiago de la Frontera")
        'csMunicipalities.Add("Texistepeque")

        ''Sonsonate Department

        'csMunicipalities.Add("Acajutla")
        'csMunicipalities.Add("Armenia")
        'csMunicipalities.Add("Caluco")
        'csMunicipalities.Add("Cuisnahuat")
        'csMunicipalities.Add("Izalco")
        'csMunicipalities.Add("Juayúa")
        'csMunicipalities.Add("Nahuizalco")
        'csMunicipalities.Add("Nahulingo")
        'csMunicipalities.Add("Salcoatitán")
        'csMunicipalities.Add("San Antonio del Monte")
        'csMunicipalities.Add("San Julián")
        'csMunicipalities.Add("Santa Catarina Masahuat")
        'csMunicipalities.Add("Santa Isabel Ishuatán")
        'csMunicipalities.Add("Santo Domingo")
        'csMunicipalities.Add("Sonsonate")
        'csMunicipalities.Add("Sonzacate")

        ''Usulután Department

        'csMunicipalities.Add("Alegría")
        'csMunicipalities.Add("Berlín")
        'csMunicipalities.Add("California")
        'csMunicipalities.Add("Concepción Batres")
        'csMunicipalities.Add("El Triunfo")
        'csMunicipalities.Add("Ereguayquín")
        'csMunicipalities.Add("Estanzuelas")
        'csMunicipalities.Add("Jiquilisco")
        'csMunicipalities.Add("Jucuapa")
        'csMunicipalities.Add("Jucuarán")
        'csMunicipalities.Add("Mercedes Umaña")
        'csMunicipalities.Add("Nueva Granada")
        'csMunicipalities.Add("Ozatlán")
        'csMunicipalities.Add("Puerto El Triunfo")
        'csMunicipalities.Add("San Agustín")
        'csMunicipalities.Add("San Buenaventura")
        'csMunicipalities.Add("San Dionisio")
        'csMunicipalities.Add("San Francisco Javier")
        'csMunicipalities.Add("Santa Elena")
        'csMunicipalities.Add("Santa María")
        'csMunicipalities.Add("Santiago de María")
        'csMunicipalities.Add("Tecapán")
        'csMunicipalities.Add("Usulután")


    End Sub


End Class