Sub AnimatePanel
pnlMenuBack.Visible = False
MMFlipFlop = True
If pnlFavourite.Tag = "down" Then
pnlFavourite.Visible = True
pnlFavourite.SetShadow(Colors.darkgray,5dip,10dip,1,False)
If GetDeviceLayoutValues.Width <= 374 And GetDeviceLayoutValues.Height <= 666 Then
pnlFavourite.BringToFront '*****iPhone5*********
pnlFavourite.SetLayoutAnimated(1000, 0.8, 5, 235, 310, 260)
Else
pnlFavourite.BringToFront '*********iPhone6*******
pnlFavourite.SetLayoutAnimated(1000, 0.8, 10, 320, 350, 260)
End If
If GetDeviceLayoutValues.Width >= 410 And GetDeviceLayoutValues.Height >= 735 Then
pnlFavourite.BringToFront '*****iPhone6PLUS*********
pnlFavourite.SetLayoutAnimated(1000, 0.8, 20, 380, 365, 260)
Else
End If
If GetDeviceLayoutValues.Width >= 767 And GetDeviceLayoutValues.Height >= 1023 Then
pnlFavourite.BringToFront '*****iPad*********
pnlFavourite.SetLayoutAnimated(1000, 0.8, 200, 650, 365, 260)
Else
End If
btnQuickAccess.Text = "?"
pnlFavourite.Tag = "up"
' btnFavouritePop.Text = "?"
Else
If GetDeviceLayoutValues.Width <= 374 And GetDeviceLayoutValues.Height <= 666 Then
pnlFavourite.BringToFront '*****iPhone5*********
pnlFavourite.SetLayoutAnimated(1000, 0.8, 5, 720, 310, 260)
Else
pnlFavourite.BringToFront '*********iPhone6*******
pnlFavourite.SetLayoutAnimated(1000, 0.8, 10, 720, 350, 260)
End If
If GetDeviceLayoutValues.Width >= 410 And GetDeviceLayoutValues.Height >= 735 Then
pnlFavourite.BringToFront '*****iPhone6PLUS*********
pnlFavourite.SetLayoutAnimated(1000, 0.8, 20, 720, 365, 260)
Else
End If
If GetDeviceLayoutValues.Width >= 767 And GetDeviceLayoutValues.Height >= 1023 Then
pnlFavourite.BringToFront '*****iPad*********
pnlFavourite.SetLayoutAnimated(1000, 0.8, 200, 1050, 365, 260)
Else
End If
btnQuickAccess.Text = "?"
pnlFavourite.Tag = "down"
End If
End Sub