Asnyc login

login/login_FLEX.aspx.vb

@@ -21,7 +21,7 @@ Partial Class login_FLEX
             Page.MaintainScrollPositionOnPostBack = False
         End If
     End Sub
-    Protected Async Sub ValidateUser(sender As Object, e As EventArgs)
+    Protected Async Function ValidateUser(sender As Object, e As EventArgs) As Threading.Tasks.Task
         Dim ConnectionString = ""
         If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
             VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
@@ -205,7 +205,7 @@ Partial Class login_FLEX
         FormsAuthentication.RedirectFromLoginPage(UserNaMe, True)
 
 
-    End Sub
+    End Function
 
     Protected Sub LoginButton_Click(sender As Object, e As EventArgs)
         Validate("Login")