Нестабильный результат \ скольжение или всплывающее окно WF

---

Здравствуйте друзья
У меня есть небольшая проблема во время скользящей формы windows, используя этот код, я получаю нестабильную конечную позицию(каждый раз, когда я снова запускаю свой проект, я получаю другой результат), например, прикрепляю фотографию.
пожалуйста, если кто-нибудь может объяснить, что не так, или отредактировать мой код.
извините, если мой код прост (я все еще новичок).

заранее спасибо.


xxxx.PNG - Google Диск[^][^]

Что я уже пробовал:

Dim mve as integer


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

    Form1.Location = New Point(SystemInformation.WorkingArea.Right - (Form1.Width), SystemInformation.WorkingArea.Bottom )

end sub

'-------------------------------------------------------------------------------------


Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick    
    
    mve = mve + 1            

        If mve = 100 Then
            Timer2.Stop()
        End If

    Me.Location = New Point(Me.Location.X, Me.Top - 10)



end sub

---