Private Sub AppleLoginButton()
Dim NativeButton As NativeObject
TW_LoginButton = NativeButton.Initialize("ASAuthorizationAppleIDButton").RunMethod("new", Null)
Dim no As NativeObject = Me
no.RunMethod("SetButton:", Array(TW_LoginButton))
mBase.AddView(TW_LoginButton, 0, 0, mBase.Width, mBase.Height)
dele_gate = no.Initialize("AuthorizationDelegate").RunMethod("new", Null)
End Sub