[tariq2812]

عدل الكود

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(1, J)
        Timer1.Enabled = True
        Timer1.Interval = 30
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 20
        ProgressBar1.Visible = False
    End Sub

الى

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim workingRectangle As System.Drawing.Rectangle = Screen.PrimaryScreen.WorkingArea
        J = workingRectangle.Height
        Me.Location = New Point(1, J)
        Timer1.Enabled = True
        Timer1.Interval = 30
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 20
        ProgressBar1.Visible = False
    End Sub

تعديل مشكلة دقة العرض المختلفة