If 100%x>=800 OR 100%y>=800 Then
imgIcon.Left = 10
imgIcon.Top = 0
imgIcon.Height =80
imgIcon.width =80
appLbl.Left = 90
appLbl.Top =0
appLbl.Height = 80
extra=90
Else
imgIcon.Left = 10
imgIcon.Top = -80
imgIcon.Height =80
imgIcon.width =80
appLbl.Left = 90
appLbl.Top =-80
appLbl.Height = 80
extra=0
End If