Const cmd1TOOLTIP = "Mein Button"
Const cmd2TOOLTIP = "Noch ein Button"
...
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Label1.Caption = cmd1TOOLTIP
End Sub
 
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Label1.Caption = cmd2TOOLTIP
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Label1.Caption = ""
End Sub