ＶＢ６の話だけど、
プライベートメンバはprivate修飾した一つの構造体の中に全部つっこんでおいてる

private type PrivateData
pd_name
pd_age
end type
private pd as PrivateData

んでpd.pd_nameでアクセスしたり。

クローン作るときもfriendなメソッドだとそのままPrivateData渡せるし。