Unstable result \ sliding or popup WF

See more:

VB

Windows

forms

hello friends
I've a small issue during sliding windows form using this code, i get unstable final position(every i do run my project again i get a different result) like attach photo.
please if can anyone explain what is wrong or edit my code.
sorry if my code is simple (I'm still beginner).

thanks in advance.


xxxx.PNG - Google Drive[^][^]

What I have tried:

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