Солнечная система

Public Class Form1
    Dim bmp As Bitmap, g As Graphics, Sol As mySol, Planet() As myPlanet, countPlanet As Integer
    Private Sub DrawSolSystem()
        PrepareGraph()
        g.FillEllipse(Brushes.Yellow, Sol.P.X, Sol.P.Y, Sol.Size, Sol.Size)
        For i As Integer = 0 To countPlanet - 1
            Planet(i).Move()
            g.FillEllipse(New SolidBrush(Planet(i).Col), Planet(i).P.X, Planet(i).P.Y, Planet(i).Size, Planet(i).Size)
        Next
        Me.PictureBox1.BackgroundImage = bmp
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = Not Timer1.Enabled
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Init()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        DrawSolSystem()
    End Sub
    Private Sub PrepareGraph()
        bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height, Imaging.PixelFormat.Format32bppPArgb)
        g = Graphics.FromImage(bmp)
        g.TranslateTransform((bmp.Width) / 2, (bmp.Height) / 2)
        Me.PictureBox1.BackgroundImageLayout = ImageLayout.Center
        g.Clear(Color.Black)
    End Sub
    Private Sub Init()
        PictureBox1.BackColor = Color.Black
        countPlanet = 10 'Количество планет
        ReDim Planet(countPlanet - 1)
        Sol = New mySol
        Randomize()
        For i As Integer = 0 To countPlanet - 1
            Planet(i) = New myPlanet
            Planet(i).Name = " № " & (i + 1)
            Planet(i).Dist = i * 10 + 50
            Planet(i).Col = Color.FromArgb(0, Int(Rnd() * 100 + 150), Int(Rnd() * 100 + 150))
            Planet(i).Speed = Rnd() * 2 + 2
            Planet(i).Angle = Int(Rnd() * 360)
            Planet(i).Size = Int(Rnd() * 8 + 8)
        Next
    End Sub
End Class
Class mySol
    Public Size As Integer = 30 'Размер
    Public P As Point = New Point(0, 0) 'положение солнца или планеты
    Public Col As Color = Color.Yellow  'Цвет
End Class
Class myPlanet
    Inherits mySol
    Public Speed As Double ' Скорость вращения
    Public Dist As Double  ' Дистанция от Солнца
    Public Angle As Double ' Угол поворота
    Public Name As String  ' Имя
    Public Sub Move()
        If Angle <= 360 Then Angle += Speed Else Angle = Speed ' :AngleSp = AngleSp + 5 
        P.X = Math.Cos(6.28 / 360 * Angle) * Dist
        P.Y = Math.Sin(6.28 / 360 * Angle) * Dist
        ' xsp = P.X + Math.Cos(6.28 / 360 * AngleSp) : ysp = P.Y + Math.Sin(6.28 / 360 * AngleSp)
    End Sub
End Class