Mungkin fungsi berikut(vb.net) bisa membantu
Public Function Capitalize(ByVal strTemp) As String
Dim intFound
Dim strTempName
strTemp = LCase(strTemp)
If strTemp <> "" Then
Do
strTempName = strTempName & UCase(Left(strTemp, 1))
strTemp = Right(strTemp, Len(strTemp) - 1)
intFound = InStr(strTemp, " ")
If intFound <> 0 Then
strTempName = strTempName & Left(strTemp, intFound)
strTemp = Right(strTemp, Len(strTemp) - intFound)
Else
strTempName = strTempName & strTemp
Exit Do
End If
Loop While intFound <> 0
End If
Return strTempName
End Function
