MouseMove
'StatusBar.Message1 = e.X & "|" & e.Y '***先以此测出各页面范围
If e.X > 5 AndAlso e.X < 55 AndAlso e.Y > 0 AndAlso e.Y < 20 Then
e.Sender.ShowToolTip("页面1",600)
ElseIf e.X > 56 AndAlso e.X < 97 AndAlso e.Y > 0 AndAlso e.Y < 20 Then
e.Sender.ShowToolTip("页面2",600)
ElseIf e.X > 102 AndAlso e.X < 146 AndAlso e.Y > 0 AndAlso e.Y < 20 Then
e.Sender.ShowToolTip("页面3",600)
Else
e.Sender.HideToolTip
End If