Move a Menu into the Screen

I use this code

Sub einstell_Click
panelemenu.Visible = False
panelemenu.BringToFront
panelemenu.Top = 300
panelemenu.Visible = True
For n = 1 To 300 Step 2
DoEvents
panelemenu.Top = 300 - n
Next
End Sub

it works well on the Desktop but it takes a long time on the device (much to long). Is there an other way?

You can try to draw a schematic layout of your controls and then animate the drawing instead of the panel (using the same bitmap object).