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?
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?