It seems your TestMeth Class does not define the properties X or Y.
Everything else is syntactically correct. Please examine the code of the class module if there are proper definitions of property routines (Let and Get) for X and Y
Public Property Let X (A as string)
If in doubt you ought to post the code of this class, so as we can take a look.
Private m_sX As String
Private m_sY As String
Public Property Get X() As String
Line = m_sX
Public Property Let X(ByVal Value As String)
m_sX = Value
Public Property Get Y() As String
Method = m_sY
Public Property Let Y(ByVal Value As String)
m_sY = Value