How to give the illusion of a spinning reel like a poker machine?

See more:

VB

game

Hi Guys,

Just wondering what would be the best way about making a reel spin in vb.net? I am trying to create a poker machine and would like to give the effect the reels are spinning around when you press spin.

I have setup 5 Buttons in a panel. with the different pictures on them, I though maybe you could you a timer to make them move down and soon as it gets to a set location move back to the top but it takes up to much cpu power and not a smooth spin.

Any idea guys?

What I have tried:

This is what I tried but makes the computer lag to much:

For i As Integer = 0 To Me.Button1.Height
            If Button3.Location.Y = 500 Then
                Button3.Location = New Point(0, -100)


            Else

                Me.Button3.Top += 100
            End If
            Application.DoEvents()

            If Button2.Location.Y = 500 Then
                Button2.Location = New Point(0, -100)


            Else

                Me.Button2.Top += 100
            End If
            Application.DoEvents()

            If Button1.Location.Y = 500 Then
                Button1.Location = New Point(0, -100)

            Else

                Me.Button1.Top += 100
            End If
            Application.DoEvents()

            If Button4.Location.Y = 500 Then
                My.Settings.Reel2 = My.Settings.Reel2 + 1
                Button4.Location = New Point(0, -100)
            Else
                Me.Button4.Top += 100
            End If
            Application.DoEvents()

            If Button5.Location.Y = 500 Then
                Button5.Location = New Point(0, -100)


            Else

                Me.Button5.Top += 100
            End If
            Application.DoEvents()

            If Button6.Location.Y = 500 Then
                Button6.Location = New Point(0, -100)


            Else

                Me.Button6.Top += 100
            End If

            Application.DoEvents()

            If Button7.Location.Y = 500 Then
                Button7.Location = New Point(0, -100)
            Else
                Me.Button7.Top += 100
            End If
            Application.DoEvents()

            If Button8.Location.Y = 500 Then
                Button8.Location = New Point(0, -100)
            Else
                Me.Button8.Top += 100
            End If
            Application.DoEvents()

            If Button9.Location.Y = 500 Then
                Button9.Location = New Point(0, -100)
            Else
                Me.Button9.Top += 100
            End If



            Dim d1 As Date = Date.Now
            While Date.Now.Subtract(d1).TotalMilliseconds < 7
                Application.DoEvents()
            End While
        Next