Private Sub testButtons_MouseUp(sender As Object, e As MouseEventArgs) 'イベントを発生させたボタンを取得します。 'これはこの瞬間のマウスの座標とは関係なくMouseDownを発生させたボタンを同じです。 Dim eventSourceControl As Button = DirectCast(sender, Button) 'この瞬間のマウスの位置の下にあるコントロールを取得します。 Dim xInParent As Integer = e.Location.X + eventSourceControl.Location.X Dim yInParent As Integer = e.Location.Y + eventSourceControl.Location.Y Dim locationInParent As New Point(xInParent, yInParent) Dim controlMouseOn As Control = Me.GetChildAtPoint(locationInParent) 'マウスの下に何かコントロールがあるのであれば、それの背景色を変更します。 If controlMouseOn IsNot Nothing Then controlMouseOn.BackColor = Color.Blue End If End Sub