Kod:
Private Sub Text0_KeyPress(KeyAscii As Integer)
If KeyAscii = 351 Then 'Küçük ş
KeyAscii = 83 'BUYUK S
ElseIf KeyAscii = 350 Then ' Büyük Ş
KeyAscii = 83 'BUYUK S
ElseIf KeyAscii = 304 Then 'Büyük İ
KeyAscii = 73 ' Büyük I
ElseIf KeyAscii = 305 Then 'Küçük ı
KeyAscii = 73 ' Büyük I
ElseIf KeyAscii = 287 Then 'Küçük ğ
KeyAscii = 71 ' Büyük G
ElseIf KeyAscii = 286 Then 'Büyük Ğ
KeyAscii = 71 'Büyük G
ElseIf KeyAscii = 231 Then 'Küçük ç
KeyAscii = 67 'Büyük C
ElseIf KeyAscii = 199 Then 'Büyük Ç
KeyAscii = 67 'Büyük C
ElseIf KeyAscii = 214 Then 'Büyük Ö
KeyAscii = 79 'Büyük O
ElseIf KeyAscii = 246 Then 'Küçük Ö
KeyAscii = 79 'Büyük O
ElseIf KeyAscii = 220 Then 'Büyük Ü
KeyAscii = 85 'Büyük U
ElseIf KeyAscii = 252 Then 'Küçük ü
KeyAscii = 85 'Büyük U
ElseIf KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If
End Sub