Public Function BassInScope() As Boolean
    Dim IsBassInScope 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
            Else
                IsBassInScope = False
                Exit Function
            End If
                    Next x
    Next y
End Function

            BassInScope
 
            If BassInScope = True Then
                pic.BackColor = vbRed
            Else
                pic.BackColor = vbGreen
            End If