Private Sub ShipRegion_KeyPress(KeyAscii As Integer)
Dim strCharacter As String
' Convert ANSI value to character string.
strCharacter = Chr(KeyAscii)
' Convert character to upper case, then to ANSI value.
KeyAscii = Asc(UCase(strCharacter))
End Sub
Чтобы попробовать пример, добавьте приведенную ниже процедуру обработки события в форму, содержащую текстовое поле с именем шипрегион. Вот куда это вставлять? Не работает. Если нужен файл примера, прикреплю. Может быть без примера подскажите?