سؤال: وضيفة On Error Goto

هذا الأمر من بقايا VB6 ولاينصح باستخدامه مطلقا

أمر On Error موجود فقط من أجل التوافقية مع الإصدار VB6 وما قبله فقط

والسطر الذي أوردته يوجه الكود للانتقال للسطر رقم 10 في حالة حدوث خطأ

من أجل معالجة الأخطاء الممكن حدوثها يجب استخدام الطريقة الموجودة في موضوعي الاستثناءات Exceptions والابتعاد نهائيا عن استخدام On error

شكرا على ردك ممكن مثال

الامثلة والشرح توجد في قسم vb6 لكن مثال بسيط

on error goto 10
1 debug.print "Hi"
2  debug.print 1/0
3  debug.print "will not print"
10   debug.print "error in"   & erl 
 debug.print "End of transmission"

Try
	C = A Mod B
	TextBox3.Text = C.ToString()
Catch Ex as DividedByZeroException
	MsgBox("Devided By Zero.")
	TextBox3.Text = "Infinity"
End Try