#IF B4J
Private Sub xlbl_SignInWithGoogle_MouseClicked (EventData As MouseEvent)
#Else
Private Sub xlbl_SignInWithGoogle_Click
#End If
#If B4A
Wait For (xSupabase.Auth.SignInWithOAuth("xxx.apps.googleusercontent.com","google","profile email https://www.googleapis.com/auth/userinfo.email")) Complete (User As SupabaseUser)
#Else If B4I
Wait For (xSupabase.Auth.SignInWithOAuth("xxx.apps.googleusercontent.com","google","profile email https://www.googleapis.com/auth/userinfo.email")) Complete (User As SupabaseUser)
#Else If B4J
Wait For (xSupabase.Auth.LogIn_EmailPassword("[email protected]","XXXXXXXX")) Complete (User As SupabaseUser)
#End If
If User.Error.Success Then
Log("successfully logged in with " & User.Email)
xui.MsgboxAsync("successfully logged in with " & User.Email, "SignIn with Google")
Else
Log("Error: " & User.Error.ErrorMessage)
xui.MsgboxAsync("Error: " & User.Error.ErrorMessage, "SignIn with Google")
End If
End Sub