'Class1
Private m_strName As String
Public Property Get Name() As String
Name = m_strName
End Property
Public Property Let Name(ByVal strValue As String)
m_strName = strValue
End Property
'Form1
Private Sub Form_Load()
Dim n As New Class1
n.Name = "sdfghxf"
MsgBox n.Name
End Sub
Public Property Get [Name]() As String
[Name] = m_strName
End Property
Public Property Let [Name](ByVal strValue As String)
m_strName = strValue
End Property
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 190