'Ja-Button wird geklickt
Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		Me.DialogResult=Windows.Forms.DialogResult.Yes
		Me.Hide()
	End Sub
 
	'Nein-Button wird geklickt
	Sub Button2Click(ByVal sender As Object, ByVal e As EventArgs)
		Me.DialogResult=Windows.Forms.DialogResult.No
		Me.Hide()
	End Sub
 
	Sub MBoxFormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs)
		e.Cancel=True
	End Sub