Public Class Form1
    Private SlideCtrl As Control        ' Control som skal slides
    Private SlideAmount As Integer = 0  ' Hvor der slides af gangen
    Private TopStop As Integer = 0
    Private SlideDirection As SlideDirectionE = SlideDirectionE.Down
 
    Public Enum SlideDirectionE
        Up
        Down
        Left
        Right
    End Enum
 
    Private Sub DoSlide(ByVal Show As Boolean)
        SlideCtrl = Panel1
        Select Case Show
            Case True
                Panel1.Location = New Point(Me.Left, Me.Height)
                SlideDirection = SlideDirectionE.Up
                TopStop = Me.Height - Panel1.Height
                SlideAmount = 1
                tmrSlide.Interval = 50
                tmrSlide.Start()
        End Select
    End Sub
 
    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
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        DoSlide(True)
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.Size = New Size(My.Computer.Screen.Bounds.Size)
        Me.WindowState = FormWindowState.Maximized
 
        With Panel1
            .Size = New Size(Me.Width / 5, Me.Height - (Me.Height / 2))
            .Location = New Point(Me.Left, Me.Height)
            .BackColor = Color.Red
        End With
    End Sub
End Class