Private Sub Auth_SignedIn (User As FirebaseUser)
LogColor("user.displayname: " & User.DisplayName, Colors.Blue)
Dim no As NativeObject = User
Dim bl As NativeObject
Dim nu As NativeObject
nu = no.RunMethod("auth", Null).RunMethod("currentUser", Null)
bl = bl.CreateBlock("refreshtoken", 1, False)
nu.RunMethodWithBlocks("getIDTokenWithCompletion:", Array(bl))
wait for refreshtoken_Event(args() As Object)
Dim token As String = args(0)
Log("token: " & token)
End Sub