В VB буквы хранятся в виде ASCII, причем значения ASCII прописных и строчных букв отличаются на 32. В этом случае, если значение ASCII прописной буквы плюс 32 станет соответствующей строчной буквой, а значение ASCII строчных букв минус 32 будут заменены прописными буквами. Исходный код для реализации преобразования регистра в VB выглядит следующим образом:
'Преобразовать заглавные буквы в строчные
Частный подтекст1_KeyPress (KeyAscii как целое число)
Если KeyAscii >= 65 и KeyAscii <= 90, тогда
KeyAscii = KeyAscii + 32
Конец, если
Конец субтитра
'Преобразовать строчные буквы в заглавные
Частный подтекст2_KeyPress (KeyAscii как целое число)
Если KeyAscii >= 97 и KeyAscii <= 122 Тогда
KeyAscii = KeyAscii - 32
Конец, если
Конец субтитра