Public Class btnbase
  Inherits Button
  Sub new()
      mybase.new()
      width = 60
      height = 45
      ... (Weitere Eigenschaften werden vorgegeben)
  End Sub
End Class

 
Public Class btnSave
  Inherits btnbase
  Sub new()
      mybase.new()
      text = "&Speichern"
   End Sub
End Class