Sub Activity_Resume If Activity.Width > Activity.Height Then Msgbox ( "paysage", "test") Else Msgbox ( "portrait", "test") End If End Sub