求救：用户定义类型 报错！

Question

.bas中：
     Public Type POINTAPI
         X As Integer
         Y As Integer
     End Type.cls中：
     Public Sub Move(NewPoint As POINTAPI, OldPoint As POINTAPI）
         实现部分
     End Sub
弹出的错误编译对话筐如下 
"只有定义在公共对象模块中的用户定义类型能和变量体类型互相转换或传递给后期绑定功能"

Answer 1

Public Sub Move(NewPoint As POINTAPI, OldPoint As POINTAPI）
—>Friend Sub Move(NewPoint As POINTAPI, OldPoint As POINTAPI）