Proper case in Visual basic 6.0

[seibor]

hi all, can anyone suggest me how to display propercase in vb
eg. HELLo WOrld is Hello World

[aparnesh]

Here's the Code to display a WORD in Proper Case. You can enhance it easily to use it for a string.

Public Function InitCapWord(ByVal mString As String) As String
Dim mRet As String
If Len(Trim(mString)) > 1 Then
    Dim mFirst As String
    Dim mRest As String
    mFirst = UCase(Mid(mString, 1, 1))
    mRest = LCase(Right(mString, Len(mString) - 1))
    mRet = mFirst & mRest
Else
    mRet = mString
End If
InitCapWord = mRet
End Function

[Comatose]

Rock On!