Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
mBase = Base
Dim NativeButton As NativeObject
If Main.App.OSVersion < 13 Then
mBase.RemoveViewFromParent
Return
End If
btn = NativeButton.Initialize("ASAuthorizationAppleIDButton").RunMethod("new", Null)
Dim no As NativeObject = Me
no.RunMethod("SetButton:", Array(btn))
mBase.AddView(btn, 0, 0, mBase.Width, mBase.Height)
dele_gate = no.Initialize("AuthorizationDelegate").RunMethod("new", Null)
End Sub