เปลี่ยนสีฟอนต์เมื่อตัวควบคุมกล่องข้อความได้รับการโฟกัส

เมื่อกล่องข้อความได้รับการโฟกัส (GotFocus) มันจะเปลี่ยนสีข้อความ เมื่อสูญเสียโฟกัส (LostFocus) มันจะคืนค่าสีข้อความ

'เมื่อเคอร์เซอร์เลื่อนไปที่กล่องข้อความ ข้อความจะถูกตั้งค่าเป็นสีแดง

ข้อความย่อยส่วนตัว1_GotFocus()

Text1.ForeColor = vbRed

จบหมวดย่อย

'เมื่อเคอร์เซอร์เลื่อนออกจากกล่องข้อความ ข้อความจะถูกตั้งค่าเป็นสีดำ

ข้อความย่อยส่วนตัว1_LostFocus()

Text1.ForeColor = vbBlack

จบหมวดย่อย

โค้ดด้านบนจำเป็นต้องเปลี่ยน Text1.ForeColor เป็น Text1.BackColor เพื่อเปลี่ยนสีพื้นหลังของกล่องข้อความ