Когда TextBox получает фокус (GotFocus), он меняет цвет текста. Когда он теряет фокус (LostFocus), он восстанавливает цвет текста. ForeColor устанавливает цвет переднего плана текста.
'Когда курсор перемещается в TextBox, текст становится красным
Частный подтекст1_GotFocus()
Text1.ForeColor = vbRed
Конец субтитра
'Когда курсор выходит за пределы TextBox, текст становится черным
Частный подтекст1_LostFocus()
Text1.ForeColor = vbBlack
Конец субтитра
В приведенном выше коде достаточно изменить Text1.ForeColor на Text1.BackColor, чтобы изменить цвет фона TextBox.