Membuat Huruf besar pada setiap kata dan kalimat

Dalam pemograman VB sering kita jumpai bagaimana cara mencetak huruf awal besar untuk setiap kata dan untuk setiap kalimat secara otomatis. yang sering kita jumpai sekarang ini adalah membuat text huruf besar dan kecil semua atau dengan cara manual membuat huruf besar pada setiap kata maupun kalimat.
kali ini qt akan mencoba membuat aplikasi untuk menapilkan huruf besar pada setiap kata dan kaliamt

buatlah sebuah project dengan object text box dan 2 command button



kemudian tulislah sintak dibawa ini :
'.....................................................................
Public Function AwalKataKapital(strKalimat As String)
Dim i As Integer 'By Masino Sinaga, Bandung, 5 Juli 2002
Dim Temp As String
Dim Lokasi As Integer
Dim huruf As String * 1
Temp$ = ""
For i% = 1 To Len(strKalimat)
huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
If Len(Trim(huruf)) < 1 Then
Lokasi% = i% + 1
End If
If i% = Lokasi% Or i% = 1 Then
Temp$ = Temp$ + UCase(Chr(Asc(Mid(strKalimat, i%, 1))))
Else
Temp$ = Temp$ + LCase(Chr(Asc(Mid(strKalimat, i%, 1))))
End If
Next i
AwalKataKapital = Temp$
End Function

Private Sub Command1_Click()
Dim posisi As Integer
posisi = Text1.SelStart
Text1.Text = AwalKataKapital(Text1.Text)
Text1.SelStart = posisi
End Sub

Public Function AwalKalimatKapital(strKalimat As String)
Dim Temp1 As String, Temp2 As String
Dim Lokasi As Integer, i As Integer
Dim huruf As String * 1
Temp1$ = LCase(strKalimat) 'Kecilkan dulu semua
For i% = 1 To Len(Temp1$)
huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
If huruf = "." Then
Lokasi% = i% + 2
End If
If i% = 1 Or i% = Lokasi% Then
Temp2$ = Temp2$ + UCase(Chr(Asc(Mid(Temp1$, i%, 1))))
Else
Temp2$ = Temp2$ + LCase(Chr(Asc(Mid(Temp1$, i%, 1))))
End If
Next i
AwalKalimatKapital = Temp2$
End Function

Private Sub Command2_Click()
Dim posisi As Integer
posisi = Text1.SelStart
Text1.Text = AwalKalimatKapital(Text1.Text)
Text1.SelStart = posisi
End Sub
'................................

selamat mencoba semoga berhasil???????????????