'Visual Basic 2010 Inleiding Object Oriented Programming Object Oriented Programming
Class Person
    Private m_Name As String                                             ' (1)
    Public Function GetName() As String                                  ' (2)
        GetName = m_Name
    End Function
    Public Sub SetName(ByVal value As String)                            ' (3)
        m_Name = value
    End Sub
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.