Paste the code below into the GLOBAL CODE area of your form.

You can then call it to format your value. For example:

MyTitle::On Element Change
MyTitle = MakeTitleCase(MyTitle)


[code]Function MakeTitleCase(vVal as String) As String
var vRet as String
var vChar as String
var vLen as Int
var vLoop as Int
var vSpaceFlag as Int

     vRet = ""
     vLen = @Len(vVal)
     vSpaceFlag = 1
     For vLoop = 1 To vLen
           vChar = @Mid(vVal, vLoop, 1)
           If vChar = " "
           {
                 vSpaceFlag = 1
           }      
           Else
           {
                 If(vSpaceFlag = 1)
                 {
                       vChar = ToUpper(vChar)
                       vSpaceFlag = 0
                 }
                 Else
                 {
                       vChar = ToLower(vChar)
                 }
           }
           vRet = vRet + vChar
     Next
     Return(vRet)      

End Function[/code]