vb6编写类遇到疑问

'保持属性值的局部变量
Private mvara As Single '局部复制
Private mvarb As Single '局部复制
Private mvarc As Single '局部复制
Private mvarx As Single '局部复制
Private mvary As Single '局部复制
Const c1 = 0.86625403784439
Const abserror = 0.00001
Public Property Let y(ByVal vData As Single)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.y = 5
mvary = vData
End Property

Public Property Get y() As Single
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.y
y = mvary
End Property

Public Property Let x(ByVal vData As Single)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.x = 5
mvarx = vData
End Property

Public Property Get x() As Single
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.x
x = mvarx
End Property

Public Property Let c(ByVal vData As Single)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.c = 5
mvarc = vD

用vb6编写计算器 VB6编写DLL文件 VB6图象疑问 最近我在用VB6.0编程序时遇到了点难题.下面是我编写的程序。 怎么用VB6.0编写手机短信发送？？ 关于用vb6编写时间日期 VB6.0的代码应该怎样编写? VB6.0编写的程序,如何破解? 请问用vb6.0能编写vb6.0吗？能编写vista操作系统吗？ realoneplayer 安装遇到疑问