هنا

[spyman]

السلام عليكم
هذا الموضوع استكمال لمجموعة مواضيع سابقة ( دورة الاكواد الشاملة )

'7-اظهار الفورم من جانب الشاشة الى وسطها

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.Left = Me.Left + 3
        If Me.Left > 300 Then Timer1.Enabled = False

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Left = 0 - Me.Width
        Timer1.Enabled = True
        Timer1.Interval = 10

    End Sub
End Class

'7-اظهار الفورم من جانب الشاشة الى وسطها 

'8-اظهار الفورم بمنتصف الشاشة

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim rectS As Rectangle = Screen.PrimaryScreen.Bounds
        Me.Location = New  _
        Point(CInt((rectS.Width - Me.Width) / 2), _
        CInt((rectS.Height - Me.Height) / 2))


    End Sub
End Class

'8-اظهار الفورم بمنتصف الشاشة 

اي استفسار عن الكود او مساعدة في كود معين لا تتردد في السؤال