'die Variable, in der wir den Text des Labels speichern
Dim my_Label_Text As String = "Test"
 
Property Label_Text() As String
        Get
                'Get ist die Anweisung, bei der die Eigenschaft
                'abgerufen wird, also geben wir sie zurück:
                return my_Label_Text
        End Get
        Set(ByVal Value As String)
                'Per SET wird die Eigenschaft geändert, also hier
                'der Code zum ändern
                my_Label_Text = Value
 
                'Hier noch eine Methode, die das Label neu zeichnet,
                'wirst du allerdings jetzt noch nicht brauchen
                Me.Refresh()
        End Set
    End Property