O que eu fiz não está funcionando.
Só muda o "ñ" no programinha, mas nos outros programas que abro, não faz nada.

É o seguinte. Executo o programinha, ele verifica o estado do teclado, e qualquer outro programa que eu for digitar a letra "ñ" é substituida por "~"



moisesferre@bol.com.br




FORM1

Private KeyAscii As Integer
private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



Private Sub Form_Load()
txtmoitas.Text = ""
End Sub

Private Sub Timer1_Timer()
CheckForKeyPress

End Sub
Sub CheckForKeyPress()

if GetAsyncKeyState (vbkeyN) then
' Não verifica "ñ", não achei o código correto... Verifica só se for "N".
'Então verifiquei de outra forma se o "ñ" existe.
With txtmoitas
If KeyAscii = Asc("ñ")" Then
'não está funcionando, só troca a letra do txt, queria que trocasse dos outros programas que abro.
KeyAscii = Asc("~")
End If

end if


End Sub