I upload again the orientation programs, you have to use them with the
If isppc = True Then Shell("Lndsc270.exe", "")
Put Claude Belgium
Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show End Sub Sub Button1_Click if isppc = true then Shell("Lndsc270.exe", "") End Sub
Also the Device object in my http://www.basic4ppc.com/forum/additional-libraries/1995-controlsexdevice-library.html#post10811 lets you get and set the display rotation.
The easiest way to detect a screen rotation is the Resize event of the formlib.How do I detect change in screen orientation and have my form switch/adjust?
If you are using WM5.0 or later then you could try using my http://www.basic4ppc.com/forum/additional-libraries/3346-systemstate-library-wm-5-0-later.html to see if you can get a StateChanged event when the system DisplayRotation state changes. I've just noticed that there is a typo in the help . The second description titled GetState that returns a reference should be titled GetValue.