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
                IsBassInScope = 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