milonix

Public Class Form1

    Dim Alphabet As New ArrayList
    Dim abarr As New ArrayList

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ascval As Integer = 63
        Do Until ascval = 123
            abarr.Add(Chr(ascval))
            ascval = ascval + 1
        Loop
        ascval = 48
        Do Until ascval = 58
            abarr.Add(Chr(ascval))
            ascval = ascval + 1
        Loop
        alphabet = abarr
    End Sub

    Private Sub openbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openbtn.Click
        'Dim strFileName As String
        Dim ret As DialogResult

        OpenFD.InitialDirectory = "C:\"
        OpenFD.Title = "Open a Text File"
        OpenFD.Filter = "Text Files(*.txt)|*.txt|Word Files(*.doc)|*.doc"
        ret = OpenFD.ShowDialog
    End Sub



    Private Sub countbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles countbtn.Click
        For Each abr As String In abarr
            TextBox1.Text &= abr & Environment.NewLine
        Next abr


    End Sub
End Class