Новый объект

Public Class Form1
    Dim P As myPlanet, S As mySol 'Объявляем переменные
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        S = New mySol    ' Создаём экземпляр класса mySol (объект)
        P = New myPlanet ' Создаём экземпляр класса myPlanet (объект)
        P.Speed = 1      ' Скорость вращения планеты
        P.Dist = 200     ' Дистанция от Солнца
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        P.Move()   '   Каждый раз при нажатии кнопки вызываем метод Move() - двигаем планету
    End Sub
 
    Class mySol                             ' Класс mySol
        Public Size As Integer = 30         ' Размер
        Public P As Point = New Point(0, 0) ' Положение Солнца или планеты
    End Class
 
    Class myPlanet                   ' Класс myPlanet
        Inherits mySol               ' Наследование от класса mySol
        Public Speed As Double = 1   ' Скорость вращения
        Public Dist As Double = 100  ' Дистанция от Солнца
        Public Angle As Double = 0   ' Склонение
        Public Sub Move()
            If Angle <= 360 Then Angle += Speed Else Angle = Speed 'Увеличение углового склонения
            P = New Point(Math.Cos(6.28 / 360 * Angle) * Dist, Math.Sin(6.28 / 360 * Angle) * Dist) ' Вычисление нового положения
        End Sub
    End Class
 
 
End Class