Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
StatusBar1.Panels(2).Text = "Dein ToolTipText"
End Sub

Option Explicit
Private Änderung As StatusBar
Private Mausbewegung As Boolean
 
 
 
Private Sub Command1_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 Command2_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
StatusBar1.Panels(2).Text = "Dein ToolTipText2"
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