'All variants script
'AutoScaleAll 'uncomment to scale all views based on the device physical size.
If 100%x < 100%y Then 'Portrait
txtStudNo.Top = 0
txtUserId.Top = txtStudNo.Top + txtStudNo.Height
txtPassword.Top = txtUserId.Top + txtUserId.Height
btnLogin.Top = txtPassword.Top + txtPassword.Height
dpanLogin.Height = btnLogin.Top + btnLogin.Height
dpanLogin.Width = 70%x
dpanLogin.VerticalCenter = 75%y
dpanLogin.HorizontalCenter = 50%x
ivLogin.Height = ivLogin.Width = 40%y
ivLogin.VerticalCenter = 25%y
ivLogin.HorizontalCenter = 50%x
Else If 100%x > 100%y Then 'Landscape
txtStudNo.Top = 0
txtUserId.Top = txtStudNo.Top + txtStudNo.Height
txtPassword.Top = txtUserId.Top + txtUserId.Height
btnLogin.Top = txtPassword.Top + txtPassword.Height
dpanLogin.Height = btnLogin.Top + btnLogin.Height
dpanLogin.Width = 40%x
dpanLogin.VerticalCenter = 50%y
dpanLogin.HorizontalCenter = 75%x
ivLogin.Height = ivLogin.Width = 40%x
ivLogin.HorizontalCenter = 25%x
ivLogin.VerticalCenter = 50%y
End If
txtStudNo.Left = 0
txtUserId.Left = 0
txtPassword.Left = 0
btnLogin.Left = 0
txtStudNo.Width = dpanLogin.Width
txtUserId.Width = dpanLogin.Width
txtPassword.Width = dpanLogin.Width
btnLogin.Width = dpanLogin.Width