Let us create a program that will capitalize every first letter of the word and lowering the case of the remaining letters after pressing the [ENTER] button. Here is the code:
Private Sub txtw_keypress(KeyAscii As Integer)
Dim size, pos As Integer
If KeyAscii = 13 Then
txtw.SelStart = 0
txtw.SelLength = 1
txtc.Text = UCase(txtw.SelText)
size = Len(txtw.Text) - 1
pos = 1
Do While pos <= size
txtw.SelStart = pos
txtw.SelLength = 1
If txtw.SelText = " " Then
pos = pos + 1
txtw.SelStart = pos
txtw.SelLength = 1
txtc.Text = txtc.Text + " " + UCase(txtw.SelText)
Else
txtc.Text = txtc.Text + LCase(txtw.SelText)
End If
pos = pos + 1
Loop
txtw.SelStart = Len(txtw.Text)
End If
End Sub
