Public Class Class1
 
    Private _MeinString As String
 
    Public Property MeinString() As String
        Get
            Console.WriteLine("MeinString wurde ausgelesen!")
            Return _MeinString
        End Get
        Set(ByVal value As String)
            Console.WriteLine("MeinString wird geändert!")
            Console.WriteLine("Alt: " & _MeinString)
            Console.WriteLine("Neu: " & value)
            _MeinString = value
        End Set
    End Property
 
    Public Sub MachWas()
        MeinString = MeinString & "12345"
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co