From 1d315a15b8162e5eec9653c7f42f30012c917d37 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 3 Mar 2021 09:57:45 +0100
Subject: [PATCH] Windows: fix animator not disappearing, add topmost

---
 Windows/Animator.vb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Windows/Animator.vb b/Windows/Animator.vb
index 48bb442c..c1c14b51 100644
--- a/Windows/Animator.vb
+++ b/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