Erro na conversão Maiúscula para Minúscula

[alissong 1]

Pessoal,Criei esse comando para transformar maiúscula e minúscula:Private Sub TxtNomeUsuario_LostFocus()TxtNomeUsuario.Text = LCase(TxtNomeUsuario.Text)End SubMas está ocorrendo esse erro:Compile erro:Cant' find project or library.Alguém pode me ajudar.

[Claudio Neto 3]

Alisson, não sei resolver seu problema, mas fiz algo do tipo esses dias. Algo para transformar tudo em maiuscula, só que usei o evento keypress. Segue abaixo, ve se pode te ajudar.

If KeyAscii >= 97 And KeyAscii <= 122 Then    KeyAscii = KeyAscii - 32End If

De 97 até 122 são os códigos de "a" até "z", subtrindo 32 faz virar de "A" até "Z"Abraços.