remember classes are objects and must be initialized.

in form2 either
dim m_pd as NEW personaldata
or add Form_Initialize()
Set m_pd=new personaldata

Further when you study implements:
Create the properties GET/LET/SET in your BASE class.
(dont use simple public variables)

Then in the cust/supp class modules you can use the
combo's in the top of the modulewindow to easily implement
the derived classes props.

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Hemant_india wrote in


hi everybody
Private m_pd As PersonalData
Private Sub Form_Load()
With m_pd
Text1 = .Name
Text2 = .Address
End With
End Sub
Public Property Set PD(Data As PersonalData)
Set m_pd = Data
End Property