Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Timer1.Tick
      If SuppressEvent Or Not AutoHide Then Exit Sub
 
      Dim rect = New Rectangle(Me.Left, Me.Top, Me.Width, Me.Height)
      If rect.Contains(Cursor.Position) Then
         If Not onForm Then
            onForm = True
            Call ShowSlideBar()
         End If
      Else
         If onForm Then
            onForm = False
            Call HideSlideBar()
         End If
      End If
   End Sub