'
' GetLayout - get screen orientation
'
' Author: Joe Strazzere
'
' Windows 2000 only!
hdc=External("gdi32","CreateDCA","DISPLAY",0,0,0)
Ret=External("gdi32","GetLayout","gdi32", hdc)
MsgBox("Layout = "+str$(ret)+" (1 =Right-to-Left)",,"GetLayout")
