Сделать форму поверх всех окон в системе

Public Class Form2
    Dim i As Integer = 0
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If i = 90 Then Me.Timer1.Stop()
        If Not Me.Location.Y = Screen.PrimaryScreen.WorkingArea.Height - 500 Then
            Me.Location = New Point(Me.Location.X, Me.Location.Y - 1)
        End If
        i += 1
    End Sub
End Class

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
End Sub

Public Class Form1
      Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
    Private Const HWND_TOPMOST = -1
    Private Const HWND_NOTOPMOST = -2
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_SHOWWINDOW = &H40
    Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call SetWindowPos(Me.Handle, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    End Sub
End Class