Sub CheckScreenOrientation(up As Boolean)
Dim ph As Phone
'
If globalInvertOnReturn Then
If Not(up) Then
If lastO = 8 Then
Else
lastO = 8
ph.SetScreenOrientation(lastO)
End If
Else
If lastO = 0 Then
Else
lastO = 0
ph.SetScreenOrientation(lastO)
End If
End If
End If
End Sub