Ok.
Found it :) it must be declared as Overrides :)))



>Hi,
>Problem description. I want to OVERLOAD property in subclass
>
>My BaseClass implement this property from Interface.
>In Subclass I want to overwrite SET()
>I put the MESSAGEBOX in the SET() but it does not fired. Only BaseClass Set() appears in Debugger.
>The question is..
>How can I overload property settor?
>
>
>Here is an example.
>
>Thanks
>Denis
>
>

>' INTERFACE
>Public Interface IMyDriver
>     Property DataSource() As String
> End Interface
>
>' BASE CLASS
>Public MustInherit Class MyBaseDriver
>    Implements IMyDriver
>     Private _pmks_datasource As String
>      Public Overridable Property DataSource() As String Implements IMyDriver.DataSource
>        Get
>            Return (_pmks_datasource)
>        End Get
>        Set(ByVal value As String)
>            _pmks_datasource = value
>        End Set
>    End Property
>End Class
>
>'SUBCLASS
>Public Class MyTextDriver
>    Inherits MyBaseDriver
>
>    Private _pmks_datasource As String
>
>    Public Overloads Property DataSource() As String
>        Get
>            Return (_pmks_datasource)
>        End Get
>        Set(ByVal value As String)
>            MessageBox.Show(value)
>            _pmks_datasource = value
>            If File.Exists(value) Then
>                If Path.GetFileName(value).IndexOf("-") >= 0 Then
>                    Dim lcNewFilename As String = String.Format("{0}\{1}", Path.GetDirectoryName(value), Path.GetFileName(value).Replace("-", "_"))
>            Try
>                    Dim loFInfo As FileInfo = New FileInfo(value)
>                    If File.Exists(lcNewFilename) Then
>                        Kill(lcNewFilename)
>                    End If
>                    loFInfo.CopyTo(lcNewFilename)
>                    _pmks_datasource = lcNewFilename
>            Catch ex As Exception
>                    _pmks_datasource = ""
>            End Try
>
>                End If
>            End If
>        End Set
>    End Property
>
>End Class
>
>