สร้าง box ทึบแสง 1 อันบังมันไว้ครับ
เอาสีเหมือนสีพื่นหลังก็ได้

สมมติ ว่า label ชื่อ label1
สมมติ ว่า box ชื่อ box2

Private Sub Box2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Box2.BackStyle = 0
vi = 0
If X <= 0 Then vi = 1
If Y <= 0 Then vi = 1
If Y >= Box2.Height Then vi = 1
If X >= Box2.Width Then vi = 1
Box2.BackStyle = vi
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Box2_MouseMove Button, Shift, X, Y
End Sub


ผมลองทำเล่นๆ ดูนะครับ แก้ไปตามโจทก์ ลองดูก็ได้ครับ

ขออนุญาตแชร์ความคิดด้วยคน
อีกหนึ่งทางเลือกคือ
ให้ป้ายชื่อ label0
1.กำหนดตัวหนังสือให้เหมือนกับสีพื้น เช่น สีในรายละเอียดฟอร์มพื้น -2147483633
2.เมือนำmouse ไปวางไว้ที่ราละเอียดฟอร์ม detail ให้มองเหมือนสีพื้น
3.เมื่อย้ายmouse มาวางใกล้ label0 ให้แสดงสี เช่นสีแดง(255)
ได้ดังนี้

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.ForeColor = "-2147483633"
Me.Label0.SpecialEffect = 0
End Sub

Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.ForeColor = "255"
Me.Label0.SpecialEffect = 1
End Sub

OK ได้ IDEA เดี๋ยวไปลองเฮ็ด(ทำ)ก่อน
ขอบคุณครับ