🚀 go-pugleaf

Salve..
Vorrei sapere se quache d'uno mi puo aiutare...
Sto cercando di programmare un nuovo controllo
che mi deve dare un effetto grafico di rotazione.
Sono riuscito a costrire il controllo in base a cio che
mi ero prefissato, ma adesso non riesco a dargli un effetto
di movimento di rotazione...
Se provo a farlo ruotare con una proprieta timer
non riesco a farlo...rimane fermo (mi ruota solo i bordi)

vi posto il codice...
-----------------------
Imports System.Drawing.Drawing2D
'**************************
Public Class CntrlRuota
     '******** Campi
     Public MyTime As Timer
     Private AngleRotate As Integer = 0
     '******** Contruttore
     Sub New()
         '------------------
         InitializeComponent()
         '------------------ Setto il controllo
         Me.SetStyle(ControlStyles.UserPaint, True)
         Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
         Me.SetStyle(ControlStyles.DoubleBuffer, True)
         Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
         '------------------- Timer
         MyTime = New Timer
         AddHandler MyTime.Tick, AddressOf TickMyTime
         '------------------
     End Sub
    '******** Evento Tick del Timer
     Private Sub TickMyTime(ByVal sender As Object, ByVal e As _ 
System.EventArgs)
         '------------------
         MyTime.Interval = 50
         '----
         If AngleRotate >= 360 Then
             AngleRotate = 0
         Else
             AngleRotate += 10
         End If
         '------------------
         Me.Refresh()
         '------------------
     End Sub
'********* Procedura Paint

     Private Sub CntrlRuota_Paint(ByVal sender As Object, ByVal e As _ 
System.Windows.Forms.PaintEventArgs) Handles Me.Paint
         '-------------------
         e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
         '-------------------
         Dim Mx1 As New Matrix
         '-------------------
         Mx1.RotateAt(AngleRotate, New Point(Me.Width / 2, Me.Height / 2))
         '-------------------
         Dim R As New Rectangle(Me.Width - 12, (Me.Height / 2) - 12, 10, 10)
         '-------------------
         Dim MyStep As Integer = 9
         '-------------------
         For i As Integer = 0 To 360 Step MyStep
             '------
             Dim Mx2 As New Matrix
             '------
             Mx2.RotateAt(i, New Point(Me.Width / 2, Me.Height / 2))
             e.Graphics.Transform = Mx2
             '------
             'e.Graphics.DrawEllipse(Pens.Blue, R)
             e.Graphics.DrawLine(Pens.Brown, CInt(Me.Width / 2), 0, 
CInt(Me.Width / 2), CInt(Me.Height / 2) - 60)
             '------
         Next
         '--------------------
         e.Graphics.Transform = Mx1
         '--------------------
         e.Graphics.DrawRectangle(Pens.Blue, New Rectangle(0, 0, 
Me.Width - 1, Me.Height - 1))
         '--------------------
     End Sub
End Class

'-----------------------
Se qualche d'uno vuole analizzare il codice
e se mi puo indicare dove sbaglio...
Per provare il controllo bisogna naturalemte attivare a true la 
proprieta enable del timer
Grazie...