ตัวอย่าง Control เป็น text0
Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Text0.ControlTipText = "สวัสดีครับ"
End Sub

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Text0.ControlTipText = ""
End Sub

ขอบคุณครับ

มีลูกเล่น ดีมาก เลย ครับ