Sub ViewAtXY(x, y) As Int
For mCnDx = 0 To PnlCheck.NumberOfViews-1
If x >= PnlCheck.GetView(mCnDx).Left And x <= PnlCheck.GetView(mCnDx).Left + PnlCheck.GetView(mCnDx).Width And _
y >= PnlCheck.GetView(mCnDx).Top And y <= PnlCheck.GetView(mCnDx).Top + PnlCheck.GetView(mCnDx).Height And _
PnlCheck.GetView(mCnDx) <> PnlGreenBackground Then
Log("found")
ViewToMove = PnlCheck.GetView(mCnDx)
Log("vtm " & ViewToMove.Tag)
Return mCnDx
End If
Next
Return -1 'Not found
end sub