你可以直接写Public Sub New(ByVal name As String, ByVal price As Double，byval haskdisk as boolean)
成都创新互联-专业网站定制、快速模板网站建设、高性价比夏津网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式夏津网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖夏津地区。费用合理售后完善，十载实体公司更值得信赖。
，但在写这句之前要先引用父类的构造函数， 就是加上一句怕你不明白，完整的写法就是这样：
mybase(name , price);
Public Sub New(ByVal name As String, ByVal price As Double，byval haskdisk as boolean) ;
这样就行了,希望我的回答可以帮助你!
Visual Basic .NET支持动态属性，其动态属性储存在一个应用程序配置文件中，该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。
要看动态属性的例子，首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中；确认TextBox是被选中的，然后在属性窗口中定位Dynamic属性。
点击Advanced标签旁边的省略号按钮，打开一个对话框，该对话框中列出了TextBox所有的属性，选择Text属性，键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim a As New month(1)
MessageBox.Show(a.ToString)
End Sub
End Class
Public Class month
Dim m As Integer
Public Sub New(i As Integer)
m = i
End Sub
Public Overrides Function ToString() As String
If m = 1 And m = 12 Then
Return Choose(m, "一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二") + "月"
Else
Return m.ToString
End If
End Function
End Class