E' una Prorietā a sola scrittura ma VB2008 non te lo permette di fare. Ti fa scrivere:
codice:
 Public WriteOnly Property SetSorgente() As Boolean
        Set(ByVal value As Boolean)
            sorgente = value
        End Set
    End Property