[Ali Wisam]

بدايةً , اهلا بك في البرمجة ! ..
بالنسبة لسؤالك . فحاولت ان اجد كود بسيط لكن لم اجد ابسط من هذا ..

كود :

'الحصول على عرض و طول الشاشة
        Dim width As Integer = My.Computer.Screen.Bounds.Width
        Dim height As Integer = My.Computer.Screen.Bounds.Height
        'الحصول على قيم x و y
        Dim x As Integer = (width \ 2) - (Me.Size.Width \ 2)
        Dim y As Integer = (height \ 2) - (Me.Size.Height \ 2)
        'تطبيق المكان الجديد
        Me.Location = New Point(x, y)

الكود يعتمد على ثلاث خطوات .. اولا يقوم بالحصول على عرض و طول الشاشة .
الخطوة الثانية هي الحصول على X,Y للمكان الجديد للفورم .. و هي بمعادلة رياضية بسيطة تكون الX نصف العرض للشاشة لكن مع طرح نصف عرض الفورم
و الواي كذلك نصف الارتفاع ناقصًا نصف ارتفاع الفورم
و الخطوة الاخيرة هي وضع المكان الجديد ..

اذا كان كودي صعبًا نوعًا ما فلعل الاخوة في المنتدى يساعدونك اكثر .. :")
بالتوفيق