Windows: fix animator not disappearing, add topmost

Windows/Animator.vb

@@ -36,11 +36,11 @@ Public Class Animator
         _PopupColor = Color.FromArgb(255, 214, 49)
     End Sub
 
-    Public Sub Highlight(Position As Point)
+    Public Async Sub Highlight(Position As Point)
         Dim oForm = GetPopup(Position, PopupSize)
         oForm.Show()
         FadeIn(oForm, _PopupOpacity, _AnimationSpeed / 2)
-        Task.Delay(_AnimationInterval)
+        Await Task.Delay(_AnimationInterval)
         FadeOut(oForm, _AnimationSpeed * 2)
     End Sub
 
@@ -57,7 +57,8 @@ Public Class Animator
             .MinimumSize = PopupSize,
             .Opacity = 0,
             .ShowInTaskbar = False,
-            .BackColor = _PopupColor
+            .BackColor = _PopupColor,
+            .TopMost = True
         }
     End Function