sub نویسی برای material dialog

سلام این کد msgbox متریال منه اما هر کاری کردم نشد برای دکمه ها sub بنویسم

Sub Button1_Click
	Dim ty As Typeface
	ty= Typeface.LoadFromAssets("danstevis.otf")
	Dim mtd As MaterialDialogBuilder
	mtd.Initialize("mtd")
	mtd.typeface(ty,ty)
	mtd.title("پیام سیستم").titleColor(Colors.White).content("تست").contentColor(Colors.Yellow).positiveText("خوبه").positiveColor(Colors.Blue).negativeText("بده").negativeColor(Colors.Green).neutralText("تست2").neutralColor(Colors.LightGray).backgroundColor(Colors.rgb(233,30,99)).build.show
	
End Sub

به صورت های زیر سعی کردم بنویسم اما جواب نداد

Sub positiveText_Click
ToastMessageShow("test" ,True)
End Sub

Sub positive_Click
ToastMessageShow("test" ,True)
End Sub

Sub mtd_positiveText_Click
ToastMessageShow("test" ,True)
End Sub

تشکر