[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي سلام
بالنسبة لفنكشن الماكس معك حق حبث لم انتبه الى الفيمة (null)في حال كان الجدول فارغ
استبدل الفنكشن القديم  بالتالي

كود :

 '-------------Function MaxID------------
   Public Function MaxID_bank() As Integer
       Dim Count = (From B In DBcontext.banks Select B).Count() ' جلب عدد السجلات
       Dim Maxid As Integer
       If Count > 0 Then
           Maxid = (From B In DBcontext.banks Select B.bank_id).Max()
           Return Maxid + 1
       Else
           Maxid = 1
           Return Maxid
       End If
   End Function

اما بالنسبة لـ الكلاس الذي يحتوي على صب لتنسيق الفورم
يكفي كتابة تنسيق لفورم افتراضي مع باراميتر اسم الفورم  وعند الاستدعاء نكتب (Me) للدلالة على الفورم الحالي ولانكتب اسم الفورم 
اما لماذا وضع حط الخطأ فلانك لم تعرف اوبجكت من الكلاس فلم يتم التعرف اليه
في الكلاس اكتب هذا الصب

كود :

 Public Sub FormatingOfForms(Frm As Form)
       Frm.FormBorderStyle = FormBorderStyle.FixedToolWindow
       Frm.RightToLeft = RightToLeft.Yes
       Frm.StartPosition = FormStartPosition.CenterScreen
   End Sub

وفي كود الفورم بالاعلى عرف نسخة من الكلاس هكذا

كود :

Dim Cls As New Class1()

,وعند مناداة الصب من الكلاس  في حذث تحميل الفورم نكتب التالي

كود :

Cls.FormatingOfForms(Me)

اما لماذا لم استخدم الكود الذي ذكرت فهذا امر يعود الى طريقتي ومعرفتي بالكود
اتمنى ان اكون قد افدتك .... دمت بخير