چرخاندن یک شی در فرم

[vb6_man]

با سلام
بچه ها می می خوام یک شی ( مثلا CommandButton ) را در فرم با یه زاویه ای ( دلبخواه ) بچرخونم ( Rotate )
چطوری می شه این کار را انجام داد؟

[ameri110]

Private Direction As Long Private Xo As Long, Yo As Long Private Sub Form_Click() If Direction = 1 Then Direction = 359 'counterclockwise Else Direction = 1 'clockwise End If End Sub Private Sub Form_Load() Direction = 1 'clockwise End Sub Private Sub Form_Resize() Xo = Me.ScaleWidth \ 2 Yo = Me.ScaleHeight \ 2 End Sub Private Sub Timer1_Timer() Dim i As Byte Dim r As Single Dim Pi As Single Dim theta As Single Dim plotx, ploty, dx, dy As Integer Xo = Form1.Width / 2 'get center, image is to rotate about Yo = Form1.Height / 2 Pi = 4 * Atn(1) dx = Image1.Left - Xo 'get horizontal distance from center dy = Image1.Top - Yo ' "" vertical "" theta = Atn(dy / dx) 'get angle about center r = dx / Cos(theta) 'get distance from center plotx = r * Cos(theta + Direction * Pi / 180) + Xo 'get new x rotate about center ploty = r * Sin(theta + Direction * Pi / 180) + Yo ' "" y "" Image1.Left = plotx Image1.Top = ploty End Sub