Класс, реализующий движение двух объектов на форме, исправить код - VB

Формулировка задачи:

есть класс,реализующий движение 2х обьектов на форме.При нажатии на кнопки движется соответствующий обьект.Программа не компилится.Как исправить? Форм

                    Листинг программы
                
 
                        
                          
                    
Private Sub btnExit_Click()
Me.Close
End Sub
 
Private Sub btnFrown_Click()
Dim Frown As New Class1
Frown.yspot = picFrown.Location.y
Frown.Move
picFrown.Top = Frown.yspot
End Sub
 
Private Sub btnSmile_Click()
Dim Smile As New Class1
Smile.xspot = picSmile.Location.x
Smile.Move
picSmile.Left = Smile.xspot
End Sub

Модуль класса

                    Листинг программы
                
 
                        
                          
                    
    Dim x, y As Integer
    Const Шаг = 10
 
Property Get xspot() As Integer
    xspot = x
End Property
 
Property Set xspot(ByVal Value As Integer)
    x = Value
End Property
 
Property Get yspot() As Integer
    yspot = y
End Property
 
Property Set yspot(ByVal Value As Integer)
    y = Value
End Property
 
Public Sub Move()
x = x + Шаг
y = y + Шаг
End Sub

Решение задачи: «Класс, реализующий движение двух объектов на форме, исправить код»

textual
                            Листинг программы 
                        
 
                        
                          
                    
 Public x As Integer, y As Integer
 Const Шаг = 10
 
Property Get xspot() As Integer
    xspot = x
End Property
 
Property Set xspot(ByVal Value)
      x = Value
End Property
 
Property Get yspot() As Integer
    yspot = y
End Property
Property Set yspot(ByVal Value)
    y = Value
End Property
 
Public Sub Move()
x = x + Шаг
y = y + Шаг
End Sub