Classe ereditata: come assegnare una propietà di default

[kicco]

 
Ho creato una classe ereditandola da Button. Come faccio a definire la proprietà picture fissa di default?
Mi spiego: quando istanzio gli oggetti, vorrei che avessero tale proprietà già assegnata.
Ho provato con

Codice: [Seleziona]

Public Sub _new()
me.picture=picture.load("image.png")
End

ma non funziona.
Ho definito una costante con

Codice: [Seleziona]

Public Const _picture As Picture = picture.Load("image.png")

ma  è sbagliata.
Idee?
 

[vuott]

...e se togli la parola-chiave "Const" ?

[Gianluigi]

La classe CButton:

Codice: [Seleziona]

' Gambas class file

Inherits Button

Public Sub _new()
  
  Super.Picture = Picture["icon:/small/book"]
  Super.Width = 128
  Super.Height = 32
  
End

in FMain.Class:

Codice: [Seleziona]

Private myButton As CButton

Public Sub Form_Open()

  myButton = New CButton(Me) As "Button1"
  myButton.X = 32
  myButton.Y = 32

End

[kicco]

@Vuott

...e se togli la parola-chiave "Const" ?

Non funziona!
@Gianluigi
SUPER (!)