//**************************************
    //     
    // Name: ALTERNATIVE TOUPPER AND TOLOWER
    //     FUNCTIONS
    // Description:Purpose of this code is t
    //     ogive an alternative to the TOLOWER and 
    //     TOUPPER methods vb.net uses...
    // By: barkın ünüulu
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/vb/scripts/Sh
    //     owCode.asp?txtCodeId=1890&lngWId;=10    //for details.    //**************************************
    //     
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim a As String
    Dim h As String
    Dim f As String
    Dim b As String
    Dim c As Long
    Dim i As Long = 1
    Dim m As New MakeBigOrLittle()
    Dim k As String
    Dim z As String
    b = TextBox1.Text
    c = Len(b)
    Do
    a = Microsoft.VisualBasic.Left(b, 1)
    h = Microsoft.VisualBasic.Right(b, c - i)
    'b = ""
    b = h
    f = m.ToBig(a)
    ListBox1.Items.Add(f)
    i = i + 1
    Loop While i < c
    'Console.ReadLine()
    'Console.ReadLine()
    k = Microsoft.VisualBasic.Right(b, 1)
    z = m.ToBig(k)
    ListBox1.Items.Insert(c - 1, z)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim a As String
    Dim h As String
    Dim f As String
    Dim b As String
    Dim c As Long
    Dim i As Long = 1
    Dim m As New MakeBigOrLittle()
    Dim k As String
    Dim z As String
    b = TextBox1.Text
    c = Len(b)
    Do
    a = Microsoft.VisualBasic.Left(b, 1)
    h = Microsoft.VisualBasic.Right(b, c - i)
    'b = ""
    b = h
    f = m.ToLittle(a)
    ListBox1.Items.Add(f)
    i = i + 1
    Loop While i < c
    'Console.ReadLine()
    'Console.ReadLine()
    k = Microsoft.VisualBasic.Right(b, 1)
    z = m.ToLittle(k)
    ListBox1.Items.Insert(c - 1, z)
    End Sub
    End Class
    Public Class MakeBigOrLittle
    Dim character As String
    Public Function ToBig(ByVal Str As String)
    Select Case Str
    Case "a"
    character = "A"
    Case "b"
    character = "B"
    Case "c"
    character = "C"
    Case "d"
    character = "D"
    Case "e"
    character = "E"
    Case "f"
    character = "F"
    Case "g"
    character = "G"
    Case "h"
    character = "H"
    Case "i"
    character = "I"
    Case "j"
    character = "J"
    Case "k"
    character = "K"
    Case "l"
    character = "L"
    Case "m"
    character = "M"
    Case "n"
    character = "N"
    Case "o"
    character = "O"
    Case "p"
    character = "P"
    Case "r"
    character = "R"
    Case "s"
    character = "S"
    Case "t"
    character = "T"
    Case "u"
    character = "U"
    Case "v"
    character = "V"
    Case "w"
    character = "W"
    Case "x"
    character = "X"
    Case "y"
    character = "Y"
    Case "z"
    character = "Z"
    End Select
    Return character
    End Function
    Public Function ToLittle(ByVal str As String)
    Select Case str
    Case "A"
    character = "a"
    Case "B"
    character = "b"
    Case "C"
    character = "c"
    Case "D"
    character = "d"
    Case "E"
    character = "e"
    Case "F"
    character = "f"
    Case "G"
    character = "g"
    Case "H"
    character = "h"
    Case "I"
    character = "i"
    Case "J"
    character = "j"
    Case "K"
    character = "k"
    Case "L"
    character = "l"
    Case "M"
    character = "m"
    Case "N"
    character = "n"
    Case "O"
    character = "o"
    Case "P"
    character = "p"
    Case "R"
    character = "r"
    Case "S"
    character = "s"
    Case "T"
    character = "t"
    Case "U"
    character = "u"
    Case "V"
    character = "v"
    Case "W"
    character = "w"
    Case "X"
    character = "x"
    Case "Y"
    character = "y"
    Case "Z"
    character = "z"
    End Select
    Return character
    End Function
    End Class