MsgBox IsOneOverAnother(CommandButton1, CommandButton2)

Public Function IsOneOverAnother(ByRef ioobjOne As Object, ByRef ioobjAnother As Object) As Boolean
    Static intCount As Integer
    
    intCount = intCount +  1 
    
    If intCount >  2  Then
       intCount =  0 
       Exit Function
    End If
        
    IsOneOverAnother = (ioobjOne.Left >= ioobjAnother.Left And ioobjOne.Left <= ioobjAnother.Left + ioobjAnother.Width) And _
     (ioobjOne.Top >= ioobjAnother.Top And ioobjOne.Top <= ioobjAnother.Top + ioobjAnother.Height)
    
    IsOneOverAnother = IsOneOverAnother Or IsOneOverAnother(ioobjAnother, ioobjOne)
    
End Function