Visual Basic

I have written a code to change the back color of a label twice during execution to give it an animation effect. The idea says that :

when the button is pressed change the color from black to red.
Then a null loop is placed to create some delay and then the color changes back to black.

<pre lang="vb">Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        box.BackColor = Color.Red
        For delay As Double = 0 To 900000000 Step 1
        Next
        box.BackColor = Color.Black
    End Sub</pre>

But its not performing as desired. The label doesnt become red and i doubt the program is executing the delay first.  Any idea whats the issue?

<?xml version="1.0" encoding="utf-8"?>
<MASTER.DATA>
    <Envelope>
        <MessageId>146413</MessageId>
        <MessageType>DataExport</MessageType>
        <Version>1.0.0</Version>
        <Sender>x4</Sender>
        <Created>2011-08-23T00:01:45.2367404+02:00</Created>
    </Envelope>
</MASTER.DATA>

Dim xd As XmlDocument
Dim xnl As XmlNodeList

xd = New XmlDocument()
xd.Load(fileName)
xnl = xd.SelectNodes("/MASTER.DATA/Envelope")

<MASTER.DATA xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://nnnn.com/schemas/sys/1.0/integration IntegrationDocumentSchema.xsd" xmlns="http://nnnn.se/schemas/sys/1.0/integration">

Public Class Form1
    Dim slidevar As Integer = -10
    Dim slidevar1 As Integer = -60
    Dim slidevar2 As Integer = -120
    Dim slidevar3 As Integer = -180
    Dim slidevar4 As Integer = -240
    Dim delayvar As Integer = -300
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1.Location = New Point(-1000, 10)
        Button2.Location = New Point(-1000, 80)
        Button3.Location = New Point(-1000, 120)
        Button4.Location = New Point(-1000, 160)
        Button5.Location = New Point(-1000, 200)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button.Click
        slidevar = 0
        slidevar1 = 0
        slidevar2 = 0
        slidevar3 = 0
        slidevar4 = 0

        Button1.Location = New Point(-1000, 10)
        Button2.Location = New Point(-1000, 80)
        Button3.Location = New Point(-1000, 120)
        Button4.Location = New Point(-1000, 160)
        Button5.Location = New Point(-1000, 200)
        Timer1.Enabled = True


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        If slidevar < 65 Then
            Button1.Location = New Point(slidevar, 10)
            slidevar += 6
            If slidevar4 > 65 Then
                Timer1.Enabled = False
            End If
        End If


        For delayvar = 1 To 100
        Next

        If slidevar1 < 65 Then
            Button2.Location = New Point(slidevar1, 80)
            slidevar1 += 5
        End If




        For delayvar = 1 To 100
        Next
        If slidevar2 < 65 Then
            Button3.Location = New Point(slidevar2, 120)
            slidevar2 += 4
        End If


        For delayvar = 1 To 100
        Next
        If slidevar3 < 65 Then
            Button4.Location = New Point(slidevar3, 160)
            slidevar3 += 3
        End If


        For delayvar = 1 To 100
        Next
        If slidevar4 < 65 Then
            Button5.Location = New Point(slidevar4, 200)
            slidevar4 += 2
        End If



    End Sub
End Class