Public Class clsStrConv
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose: returns string converted as specified
        '
        ' Syntax: 	StrConv(string1,conversion,LocalId)
        '
        ' Parameter1: string1 - Required. String expression to be converted.
        '
        ' Parameter2: conversion - Required. VbStrConv member. The enumeration 
        ' value specifying the type of conversion to perform.
        ' Enumeration(member)         Description()
        ' VbStrConv.None()            Performs no conversion
        ' VbStrConv.LinguisticCasing() Uses linguistic rules for casing, rather than File System 
        ' (default). Valid with VbStrConv.UpperCase and VbStrConv.LowerCase only.
        ' VbStrConv.Uppercase()       Converts the string to uppercase characters.
        ' VbStrConv.Lowercase()       Converts the string to lowercase characters.
        ' VbStrConv.ProperCase()      Converts the first letter of every word in string to uppercase.
        ' VbStrConv.Wide*              Converts narrow (half-width) characters in the string to wide
        '  (full-width) characters.
        ' VbStrConv.Narrow*            Converts wide (full-width) characters in the string to narrow 
        ' (half-width) characters.
        ' VbStrConv.Katakana**          Converts Hiragana characters in the string to Katakana characters.
        ' VbStrConv.Hiragana**          Converts Katakana characters in the string to Hiragana characters.
        ' VbStrConv.SimplifiedChinese* Converts Traditional Chinese characters to Simplified Chinese.
        ' VbStrConv.TraditionalChinese* Converts Simplified Chinese characters to Traditional Chinese.
        ' * - Chinese locales only
        ' ** - Japanese locales only
        '
        ' Parameter3: LocalId - Optional. The LocaleID value, if different from the system LocaleID value. 
        ' (The system LocaleID value is the default.)
        '
        ' Result: string - Converted string expression
        '
        ' Quick Example:     Dim strString1 As String = "Hello"
        ' Console.WriteLine(StrConv(strString1, VbStrConv.Lowercase)) 'Returns hello
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: 	StrConv(string1,conversion,LocalId) - returns string converted as specified
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	StrConv(string1,conversion,LocalId) ")
 
        Dim strString1 As String = "Hello"
 
        Console.WriteLine(StrConv(strString1, VbStrConv.Lowercase)) 'Returns hello
 
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
 
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsStrConv As New clsStrConv
        myclsStrConv.Main()
 
 
 
    End Sub
 
End Module