From e303b6c38163cc95fb27e3df508f00ddb71ecf9c Mon Sep 17 00:00:00 2001
From: Pilzinsel64 <pilzinsel64@gmx.de>
Date: Mon, 17 Jun 2024 20:11:29 +0200
Subject: [PATCH] fix AppUpdater using

---
 ModpackUpdater/Form1.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ModpackUpdater/Form1.vb b/ModpackUpdater/Form1.vb
index 4cd3638..19f9e55 100644
--- a/ModpackUpdater/Form1.vb
+++ b/ModpackUpdater/Form1.vb
@@ -195,10 +195,11 @@ Public Class Form1
     End Sub
 
     Private Async Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        If Await AppUpdater.Check AndAlso RadMessageBox.Show(LangRes.MsgBox_UpdateAvailable, LangRes.MsgBox_UpdateAvailable_Title, MessageBoxButtons.YesNo, RadMessageIcon.Info) = DialogResult.Yes Then
+        Dim updater As New AppUpdater
+        If Await updater.Check AndAlso RadMessageBox.Show(LangRes.MsgBox_UpdateAvailable, LangRes.MsgBox_UpdateAvailable_Title, MessageBoxButtons.YesNo, RadMessageIcon.Info) = DialogResult.Yes Then
             SetStatus(LangRes.StatusText_InstallingAppUpdate, MySymbols.icons8_software_installer_16px)
             Enabled = False
-            Await AppUpdater.Install()
+            Await updater.Install
             Application.Restart()
         End If
     End Sub