[مساعدة]

السلام عليكم

السطر Me.StartPosition = FormStartPosition.CenterScreen وهو لجعل الفورم في منتصف الشاشة يمكنك عمله من خلال خصائص الفورم مباشرة.

ولكن إذا كنت تريد الكود كما هو فاعمل التالي

اعمل Module جديد وضع فيه هذا الكود دون تغيير

كود :

Module ModuleResizeControls

    Dim R As New ResizeControls()

    Public Sub SetContainer(frm As Form)
        AddHandler frm.Resize, AddressOf Form_Resize
    End Sub

    Private Sub Form_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
        sender.StartPosition = FormStartPosition.CenterScreen
        R.ResizeControls()
    End Sub

End Module

وفي كل فورم فقط ضع هذا الكود دون تغيير

كود :

Private Sub Form_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated
        SetContainer(Me)
    End Sub

ولو تضع المكتبة أو الكلاس ResizeControls ليستفيد من أخوانك.