I want to change Orientation when click on button I am using this code: Sub SetOrientation(landscape As Boolean) Dim no AsNativeObject Dim value As Int If landscape Then value = 4 Else value = 1 no.Initialize("UIDevice").RunMethod("currentDevice", Null).SetField("orientation", value)...