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