یک مسال ساده:
Public Class a()
friend var1 as int16
Public Sub New()
var1+= 5
End Sub
End Class
Public Class b()
Public Sub New()
var1+= 1
MessageBox.Show (var1)
End Sub
End Class
که نتیجه 6 خواهد بود
در مورد سوال دومتون هم کافیه آدرس فایل رو ذخیره کنید و و در زمان لازم اون رو بخوانید و ...
http://www.barnamenevis.org/viewtopic.php?t=679
در تاپیک بالا آقای نصیری در یک مقاله pdf توضیحات کامل را داده اند
در ضمن اولا ورود شما رو به این سایت از طرف خودم تبریک می گم ولی لازمه با اجازه مدیر این بخش یک تذکر هم بدم و اون اینکه شما با تاپیکتون 2 بار قوانین سایت رو نقض کردین
1) نامفهوم بودن موضوع
2) پرسیدن 2 سوال در یک تاپیک
:flower: