Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
    If (IsActiveControlBelongToSpread(FpSpread1)) Then
        MessageBox.Show("FpSpread")
    End If

End Sub

Private Function IsActiveControlBelongToSpread(spread As FpSpread) As Boolean
    Dim activeControl As Control = Me.ActiveControl
    While (activeControl IsNot Nothing)
        If activeControl Is spread Or (spread Is Nothing And TypeOf activeControl Is FpSpread) Then
            Return True
        End If
        activeControl = activeControl.Parent
    End While
    Return False

End Function