Option Explicit
Private Änderung As StatusBar
Private Mausbewegung As Boolean
 
Private Sub txtstudent(0)_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
StatusBar1.Panels(2).Text = "Dein ToolTipText1"
Mausbewegung = True
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
If Mausbewegung = False Then Exit Sub 'Die Maus wurde nicht über einen Objekt 
' bewegt
StatusBar1.Panels(2).Text = ""
End Sub