Sapere se un oggetto, spostato sul Form con il mouse, è al di sopra di un altro oggetto

Per sapere se un widget, spostato con il mouse sul Form, si trova al di sopra di un altro widget, indicato nel codice, si può utilizzare il Metodo Mouse.Inside( ).
In realtà tale Metodo restituirà "True", se il cursore del mouse si trova all'interno del widget, purché questo oggetto grafico non sia stato espressamente nascosto con il Metodo ".Hide( )".

Mostriamo un semplice esempio. Bisognerà porre sul Form una Label e un Button (che rappresenta l'oggetto che sarà spostato con il mouse).

Private spx As Short
Private spy As Short


Public Sub Button1_MouseDown()
 
 spx = Mouse.X
 spy = Mouse.Y
  
End


Public Sub Button1_MouseMove()
 
 With Button1
   .X = .X + Mouse.X - spx
   .Y = .Y + Mouse.Y - spy
 End With
 
' Sarà mostrato nella "Label", se è vero o falso che il cursore del mouse,
' e quindi il "Button", è entrato nella "Label" medesima:
 Label1.Text = Str(Mouse.Inside(Label1))
  
End