' сақтау үшін локальды ауыспалылар ' Қасиет мәндері
Private mvarR As Integer Private ravarX As Integer Private xnvarY As Integer Private mvarColor As Long
Public Sub ChangeColor(NewColor As Long) Color = NewColor Draw End Sub Public Sub Move(XStep As Integer, _ YStep As Integer) Forml.Circle (X, Y), R, Forml.BackColor X = X + XStep Y = Y + YStep Draw
End Sub Public Sub Draw() Forml.Circle (X, Y), R, Color End Sub Public Property Let Color(ByVal vData _ As Long) 'Syntax: X.Color = 5 mvarColor = vData End Property Public Property Get Color() As Long 'Syntax: Debug.Print X.Color Color = mvarColor End Property Public Property Let Y(ByVal vData _ As Integer) 'Syntax: X.Y = 5 mvarY = vData End Property Public Property Get Y() As Integer 'Syntax: Debug.Print X.Y Y = mvarY End Property Public Property Let X(ByVal vData_ As Integer) 'Syntax: X.X =5 mvarX = vData End Property Public Property Get X() As Integer 'Syntax: Debug.Print X.X