vb.net animating a notification form. Problem with threading and sizing - vb.net

Question

I have created a class to use as a notification window (similar to toast notifications, which are disabled on our system).
I use a timer object to timeout the closing the form, and a backgroundworker to handle the animation of it sliding in from the bottom of the screen. For debugging purposes the form just outputs it's own size and the screen bounds.
Imports System.ComponentModel
Public Class ASNotify
Public Sub New(ByVal title As String, ByVal msg As String, ByVal Optional timeout As Integer = 5000)
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me.Text = title
Me.NotifyMessage.Text = $"{Me.Width}x{Me.Height}{vbCrLf}{My.Computer.Screen.WorkingArea.Size.Width}x{My.Computer.Screen.WorkingArea.Size.Height}"
TimeoutTimer.Interval = timeout
TimeoutTimer.Enabled = True
AnimationWorker.RunWorkerAsync()
End Sub
Private Sub AnimationWorker_DoWork(sender As Object, e As DoWorkEventArgs) Handles AnimationWorker.DoWork
Dim xloc As Integer = My.Computer.Screen.WorkingArea.Size.Width - Me.Width
Dim yloc As Integer = My.Computer.Screen.WorkingArea.Size.Height
For x As Integer = 0 To Me.Height
MoveWindow(xloc, yloc - x)
Threading.Thread.Sleep(2)
Next
End Sub
Private Sub MoveWindow(xloc As Integer, yloc As Integer)
If InvokeRequired Then
Invoke(Sub() MoveWindow(xloc, yloc))
Else
Location = New Drawing.Point(xloc, yloc)
End If
End Sub
Private Sub TimeoutTimer_Tick(sender As Object, e As EventArgs) Handles TimeoutTimer.Tick
Me.Close()
End Sub
End Class
I call this from another form by calling
Private Sub NotifyUser(ByRef a As Alert.Alert)
Dim notify As New ASNotify(a.Location, a.Comment, 5000)
notify.Show()
End Sub
I call that sub by pressing a button on the form, and it works perfectly.....Sometimes.
repeatedly triggering the notify window makes it pops up as one of 2 different sizes on the screen, although the contents showing the size always state 264x81 and screenbounds 1920x1040
and occasionally I get an exception that the line saying 'Location = new Drawing.Point(xloc,yloc) is being called from a thread other than that which it was created on, despite the Invoke call.

Answer 1

Moved the timer-start and animationworker start to the Load method of the form, rather than New.
Private Sub ASNotify_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TimeoutTimer.Enabled = True
AnimationWorker.RunWorkerAsync()
End Sub