Not really...lol

How can I make the status bar say "Active..." when they are moving the mouse?

Private Sub sbStatusBar_PanelClick(ByVal Panel As Lib.Panel)
'INSERT CODE HERE
End Sub