Ciao, se può esserti ancora utile, per un programmino simile al tuo avevo risolto inserendo in un form una Picturebox e un commandButton e poi il seguente codice:
---------
Option Explicit
Private Sub Command1_Click()
Picture1.DrawWidth = 4
Picture1.Circle (202.5, 145), 100
Pausa 1
Colora
End Sub
Private Sub Colora()
Const Pi As Double = 3.14159265358979
Const Corr As Double = 1.334
Dim angG As Double
Dim angRad As Double
Dim y As Integer, x As Integer
Picture1.Scale (-400, 400)-(400, -400)
For angG = 0 To 360 Step 1
angRad = angG * Pi / 180
x = 200 * Cos(angRad)
y = 200 * Sin(angRad) * Corr
Picture1.Line (0, 0)-(x, y), vbRed
Pausa 0.0001
Next angG
End Sub
Sub Pausa(Value As Double)
Dim t As Double
t = Timer
Do
DoEvents
Loop While Value >= (Timer - t)
End Sub
---------------------
Saluti
|