You also can use this: Name of Control for example : Btn1 Kind of Control Active Function : Hover, Leave =================================== P S Btn1_Hover() While (Panel1.Height < 240) Panel1.height += 1 End While E S P S Btn1_Leave() While (Panel1.Height > 60) Panel1.height -= 1 End While E S ==================================== This code is far quicker than your code and the interval of dropping the menu is more realistic at basic style level