Option Explicit
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Type TPoint
X As Double
Y As Double
End Type
Private this As TPoint
Public Function Make(ByVal X As Double, ByVal Y As Double) As Point
Dim newPoint As Point
Set newPoint = New Point
SwapFunctions
newPoint.Make X, Y
SwapFunctions
End Function
Private Function InternalInitialize(ByVal X As Double, ByVal Y As Double) As Point