Simular aceleración y rotación en animación con Ucimage

[Bazooka]

Hola amigos, estoy intentando emular el movimiento de una ruleta que gira y me gustaria que se vea lo mas real posible en cuanto se refiere a fisica . O sea que se produsca una acelaracion y desaseleracion convincente.
Les subo el proyectito para que vean si me pueden ayudar !!
https://mega.co.nz/#!kwUS2YKI!M1MMQS8QUKtWQfoX6zXRJoX-xlB3zbLA4d2CB88-970
Muchas gracias

[Bazooka]

ninguna ayudita??

[LeandroA]

Hola Pibe Bazoka  , mira a mi me gusto asi

Código: (vb) [Seleccionar]

Dim r As Integer
Dim d As Long
Private Sub Command1_Click()
d = GetRND(45, 135)
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
    r = r + d
    If r >= 360 Then r = 0
    uc.Angle = r
    d = d - 1
    If d = 0 Then
        Timer1.Interval = 0
        Debug.Print uc.Angle
    End If
End Sub

Private Function GetRND(Min As Integer, Max As Integer)
    GetRND = CInt(Int((Max - Min + 1) * RND())) + Min
End Function

lo que si tenes que sacar el calculo de los grados para obtener el resultado osea con un select case por ejemplo de 0 a 22 un valor de 23 a 45 otro etc, no hice bien la cuenta pero creo que 22 esta bien porque son 16 casilleros divididos 360 grados es un intervalo de 22 y chirolas

[Bazooka]

muchas gracias Leandro!!!

Me esta dando un error de desbordamiento pero ya lo estudio para corregir!!