Public Function BassInScope() As Boolean
    Dim x As Integer
    Dim y As Integer
        For y = 0 To Scope.ScaleHeight / 6       ' Das ist das oberste Sechstel 
        ' des Bildes
            For x = 0 To Scope.ScaleWidth / 4    ' Das ist das erste Viertel 
            ' des Bildes
                ' Prüfen, ob der aktuelle Punkt einen anderen Farbcode als Weiß 
                ' = vbWhite/Standard = -1 hat
                If Scope.Point(x, y) <> vbWhite And Scope.Point(x, y) <> -1 Then
                    BassInScope = True         ' Ist dem so, Funktionswert auf 
                    ' True setzen
                    Exit Function                ' Funktion abbrechne, da keine 
                    ' weitere Suche notwendig ist
                End If
            Next x
        Next y
End Function