Class1::Class1(const cClass & obj)
{
    m_Var = obj.GetVar();    // public-Zugriff
    m_Var = *(obj.m_Var);    // private-Zugriff
}
 
Public Sub CopyData(ByRef obj as cClass)
    m_var = obj.GetVar       // erlaubter Zugriff
    m_var = obj.m_Var        // IN VB VERBOTEN !!!
End Sub

-----------------
MfG GeiseL