Public Function cover(e1 As Control, e2 As Control) As Boolean
If e1.Top + e1.Height > e2.Top And _
e1.Top < e2.Top + e2.Height And _
e1.Left + e1.Width > e2.Left And _
e1.Left < e2.Left + e2.Width _
Then cover = True Else cover = False
End Function