TextBox가 포커스를 받으면(GotFocus) 텍스트 색상을 변경합니다. 포커스를 잃으면(LostFocus) 텍스트 색상을 복원하여 텍스트의 전경색을 설정합니다.
'커서가 TextBox로 이동하면 텍스트가 빨간색으로 설정됩니다.
비공개 하위 Text1_GotFocus()
Text1.ForeColor = vbRed
서브 끝
'커서가 TextBox 밖으로 이동하면 텍스트가 검은색으로 설정됩니다.
비공개 하위 Text1_LostFocus()
Text1.ForeColor = vbBlack
서브 끝
위 코드에서는 Text1.ForeColor를 Text1.BackColor로 변경하여 TextBox의 배경색만 변경하면 됩니다.