Label animation

[SomethinCool]

I'm doing a simple animation for my splash screen.

A label will move up and then back down..(i dont know know if i'm going to do this or not..)

This is the code i have..

Private Sub frmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        Pause(3000)
        Do Until Label1.Location.X = 25
            Do Until Label1.Location.X = 16
                Label1.Location.X.Equals(Label1.Location.X + 1)
                Pause(100)
            Loop
            Label1.Location.X.Equals(Label1.Location.X + 1)
            Pause(100)
        Loop
    End Sub

Now i tried doing label1.Location.X = Label1.Location.X + 1 but it had the blue zigzag line under it..

How can i make the label go up and then back down?

(This is the code for the pause function:

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Pause(Interval As Long)
    Dim Start
    Start = GetTickCount
    Do While GetTickCount < Start + Interval
    Application.DoEvents()
    Loop
End Sub

)