Public Class clsFormatPercent
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose:  Returns an expression formatted as a percentage (that is, multiplied by 100) with 
        ' a trailing % character.
        '
        ' Syntax: 	FormatPercent (Expression As Object, _
        ' NumDigitsAfterDecimal As Integer, _
        ' IncludeLeadingDigit As TriState, _
        ' UseParensForNegativeNumbers As TriState, _
        ' GroupDigits As TriState _
        ' ) As String
        '
        ' Parameter1: Expression - Required - Expression to be formatted
        '
        ' Parameter2: NumDigitsAfterDecimal - Optional - Numeric value indicating how 
        ' many places are displayed to the right of the decimal. Default value is –1, 
        ' which indicates that the computer's regional settings are used.
        '
        ' Parameter3: IncludeLeadingDigit - Optional. TriState enumeration that 
        ' indicates whether or not a leading zero is displayed for fractional values.  
        '
        ' Parameter4: UseParensForNegativeNumbers - Optional. TriState enumeration 
        ' that indicates whether or not to place negative values within parentheses. 
        '
        ' Parameter5: GroupDigits - Optional. TriState enumeration that indicates 
        ' whether or not numbers are grouped using the group delimiter specified 
        ' in the computer's regional settings.  
        '
        ' Result: string - Returns string formatted as a number
        '
        ' Quick Example:   Dim dblNumber As Double = -5432.43
        ' ' Returns "(543,243.000)".
        ' Console.WriteLine(FormatPercent(dblNumber, 3, , TriState.True, TriState.True))
        '
        ' 
        '****************************************************************************************
        ' Syntax: 	
        '
        ' 
        ' 
        ' 
        ' 
        ' 
        ' 
        ' 
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	FormatPercent (Expression As Object," & _
        " NumDigitsAfterDecimal As Integer," & _
        " IncludeLeadingDigit As TriState," & _
         " UseParensForNegativeNumbers As TriState," & _
        " GroupDigits As TriState " & _
         " ) As String ")
        Dim dblNumber As Double = -5432.43
 
        ' Returns "(543,243.000)".
        Console.WriteLine(FormatPercent(dblNumber, 3, , TriState.True, TriState.True))
 
 
        '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 myclsFormatPercent As New clsFormatPercent
        myclsFormatPercent.Main()
 
 
 
    End Sub
 
End Module