Private Sub tmrSlide_Tick(sender As System.Object, e As System.EventArgs) _
      Handles tmrSlide.Tick
        If SlideCtrl Is Panel1 Then
            If SlideDirection = SlideDirectionE.Up Then
                If SlideCtrl.Top <= TopStop Then
                    If SlideCtrl.Top < TopStop Then SlideCtrl.Top = TopStop
                    tmrSlide.Stop()
                End If
                SlideCtrl.Top -= SlideAmount
            End If
        End If
 
    End Sub