Как такое сотворить?

[ProGaMen]

Как можно заставить пользователя вводить в поле, скажем название фирмы только большими буквами?

Заранее благодарен.

[GSerg]

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
End Sub

[ProGaMen]

Спасибо ОГРОМНОЕ!

Но еще один вопросик!
А как сделать, чтобы первая буква была заглавная, а остальные маленькие и если возможно, чтобы после пробела опять первая была заглявная, а остальные маленькие. Например так - Фомин Илья

Если и в этом случае поможешь - то ты не представляешь себе как я тебе буду благодарен!!!!

[GSerg]

Код: Выделить всё

Private Sub Text1_Change()
  Dim tmp As Long
  tmp = Text1.SelStart
  Text1.Text = StrConv(Text1.Text, vbProperCase)
  Text1.SelStart = tmp
End Sub