Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Panel1_MouseLeave Panel1.MouseLeave
Schemerige pnl als Comité = C (afzender, Comité)
Schemerige rc als Rechthoek = pnl.RectangleToScreen (pnl.ClientRectangle)
Als niet rc. Bevat dan (Cursor.Position)
pnl. Zichtbaar = Vals
Anders
Debug.Print („MouseLeave () maar curseur nog binnen paneelgrenzen“)
Eind als
Sub van het eind
|