سوال (تغییر height فرم در تایمر)

[mahdi_armed]

بفرما داداش . اینم نمونه

اینم سورسش:
ابتدا دوتا تایمر بزارین توی برناتون . بعدشم این کد ها رو کلا جایگزینه پروژتون کنید

Public Class Form1



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

        Me.BackColor = Color.DarkGoldenrod

        Me.Height = 15

        Me.Width = 1

        Me.Left = Screen.PrimaryScreen.WorkingArea.Width / 2

        Timer1.Interval = 1

        Timer2.Interval = 1

        Timer1.Enabled = True

    End Sub



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

        If Me.Height >= 500 Then

            Timer1.Enabled = False

            Timer2.Enabled = True

        Else

            Me.Height += 10

            Me.Top = (Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)

        End If

    End Sub



    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        If Me.Width >= 1000 Then

            Timer2.Enabled = False

        Else

            Me.Width += 10

            Me.Left = (Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)

        End If

    End Sub

End Class

\\\موفق باشید///

خیلی ممنون عزیز
واقعا به کارم اومد
خیلی لطف کردی
فقط یه چندتا سوال بپرسم اگه بی ادبی نباشه
دستور Screen.PrimaryScreen.WorkingArea.Width / 2 چیکار میکنه ؟ یه توضیح کاملی بهم میدی ؟
و چرا توو تایمر بعدی , کد بالا رو از ارتفاع کم کردی ؟ چی بدست میاد با این کار ؟